gsl/0000755000176000001440000000000012627553221011074 5ustar ripleyusersgsl/inst/0000755000176000001440000000000012251674041012046 5ustar ripleyusersgsl/inst/CITATION0000644000176000001440000000114212251674014013201 0ustar ripleyuserscitHeader("To cite in publications use:") citEntry(entry = "Article", title = { paste("Special functions in R: introducing the gsl package") }, author = personList( person(first = "Robin", middle = "K. S.", last = "Hankin", email="r.hankin@noc.soton.ac.uk")), journal = "R News", year = "2006", month = "October", volume = "6", issue = "4", textVersion = { paste("R. K. S. Hankin", "2006.", "Special functions in R: introducing the gsl package. ", "R News", "6(4)" ) }) gsl/inst/doc/0000755000176000001440000000000012251674041012613 5ustar ripleyusersgsl/inst/doc/gslpaper.Rnw0000644000176000001440000002477512251674041015137 0ustar ripleyusers% -*- mode: noweb; noweb-default-code-mode: R-mode; -*- \documentclass[nojss]{jss} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% declarations for jss.cls %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% just as usual \author{Robin K. S. Hankin} \title{Special functions in \proglang{R}: introducing the \pkg{gsl} package} %\VignetteIndexEntry{A vignette for the gsl package} %% for pretty printing and a nice hypersummary also set: %% \Plainauthor{Achim Zeileis, Second Author} %% comma-separated \Plaintitle{Special functions in R: introducing the gsl package} \Shorttitle{The \pkg{gsl} package} \Abstract{ This vignette introduces the \pkg{gsl} package of \proglang{R} utilities for accessing the functions of the Gnu Scientific Library. An earlier version of this document was published as~\cite{hankin2006}. } \Keywords{\proglang{R}, special functions} \Plainkeywords{R, special functions} \Address{ Robin K. S. Hankin\\ Auckland University of Technology\\ AUT Tower\\ Wakefield Street\\ Auckland\\ New Zealand\\ E-mail: \email{hankin.robin@gmail.com} } %% need no \usepackage{Sweave.sty} \SweaveOpts{echo=FALSE} \begin{document} \section{Introduction} The Gnu Scientific Library (GSL) is a collection of numerical routines for scientific computing~\citep{galassi2005}. The routines are written in \proglang{C} and constitute a library for \proglang{C} programmers; the source code is distributed under the GNU General Public License. One stated aim of the GSL development effort is the development of wrappers for high level languages. The \proglang{R} programming language~\citep{rcore2008} is an environment for statistical computation and graphics. It consists of a language and a run-time environment with graphics and other features. Here I introduce \pkg{gsl}, an \proglang{R} package that allows direct access to many GSL functions, including all the special functions, from within an \proglang{R} session. The package is available on CRAN, \url{http://www.cran.r-project.org/}; the GSL is available at \url{http://www.gnu.org/software/gsl/}. \section{Package design philosophy} The package splits into two parts: the special functions, written by the author; and the \pkg{rng} and \pkg{qrng} functionality, written by Duncan Murdoch. These two parts are very different in implementation, yet follow a common desideratum, namely that the package be a transparent port of the GSL library. The package thus has the advantage of being easy to compare with the GSL, and easy to update verifiably. In this paper, the Airy functions are used to illustrate the package. They are typical of the package's capabilities and coding, and are relatively simple to understand, having only a single real argument. A brief definition, and an application in physics, is given in the appendix. The package is organized into units that correspond to the GSL header file. Thus all the Airy functions are defined in a single header file, \code{gsl\_sf\_airy.h}. The package thus contains a corresponding \proglang{C} file, \code{airy.c}; an \proglang{R} file \code{airy.R}, and a documentation file \code{Airy.Rd}. These three files together encapsulate the functionality defined in \code{gsl\_sf\_airy.h} in the context of an \proglang{R} package. This structure makes it demonstrable that the GSL has been systematically and completely wrapped. Functions are named such that one can identify a function in the GSL manual, and the corresponding \proglang{R} command will be the same but with the prefix\footnote{Some functions, such as \code{gsl\_sf\_sin()}, retain the prefix to avoid conflicts. A full list is given in \code{Misc.Rd}.} and, if present, the ``\code{\_e}'' suffix, removed. In the case of the special functions, the prefix is ``\code{gsl\_sf\_}''. Thus, GSL function \code{gsl\_sf\_airy\_Ai\_e()} of header file \code{gsl\_sf\_airy.h} is called, via intermediate \proglang{C} routine \code{airy\_Ai\_e()}, by \proglang{R} function \code{airy\_Ai()}. Documentation is provided for every function defined in \code{gsl\_sf\_airy.h} under \code{Airy.Rd}. The \pkg{gsl} package is not intended to add any numerical functionality to the GSL, although here and there I have implemented slight extensions such as the Jacobian elliptic functions whose \proglang{R} ports take a complex argument. \subsection{Package documentation} The \pkg{gsl} package is unusual in that its documentation consists almost entirely of pointers to the GSL reference manual~\citep{galassi2005}, and~\citet{abramowitz1965}. This follows from the transparent wrapper philosophy. In any case, the GSL reference manual would strictly dominate the \code{Rd} files of the \pkg{gsl} package. \section[Package gsl in use]{Package \pkg{gsl} in use} <>= <>= library(gsl) @ Most functions in the package are straightforwardly and transparently executable: <>= airy_Ai(1:3) @ The online helpfiles include many examples that reproduce graphs and tables that appear in \citeauthor{abramowitz1965}. This constitutes a useful check on the routines. For example, figures~\ref{airyfig_A} and~\ref{airyfig_B} show an approximate reproduction of their figures~10.6 and~10.7 (page~446). \begin{figure}[htbp] \begin{center} <>= x <- seq(from=0,to=10,len=100) plot(c(0,11),c(-1,1),type="n",main="Fig 10.6, p446",xlab="",ylab="",yaxt="n",xaxt="n",frame=FALSE) axis(1,pos=0,at=c(0,2,4,6,8,10),labels=c("","2","4","6","8","10")) axis(2,pos=0) lines(x,airy_Ai ( x),type="l",lty=1) lines(x,airy_Ai (-x),type="l",lty=2) lines(x,airy_Ai_deriv ( x),type="l",lty=3) lines(x,airy_Ai_deriv (-x),type="l",lty=4) text(1,0.6 ,"Ai(-x)" ) text(0.85,0.33 ,"Ai(x)" ) text(1.08,-0.26,"Ai'(x)" ) text(10.5,0.4 ,"Ai'(-x)") arrows(10, 0, 11, 0,angle=11) text(11,-0.1,"x") @ \caption{Functions~$\mathrm{Ai}(\pm x)$ \label{airyfig_A} and~$\mathrm{Ai}'(\pm x)$ as plotted in the helpfile for \code{airy\_Ai()} and appearing on page~446 of~\citet{abramowitz1965}} \end{center} \end{figure} \begin{figure}[htbp] \begin{center} <>= x <- seq(from=0,to=10,len=100) plot(c(0,10),c(-1,2.2),type="n",main="Fig 10.7, p446",xlab="",ylab="",yaxt="n",xaxt="n",frame=FALSE) axis(1,pos=0,at=c(0,1:9),labels=c("","1","2","3","4","5","6","7","8","9")) axis(2,pos=0) lines(x,airy_Bi ( x),type="l",lty=1) lines(x,airy_Bi (-x),type="l",lty=2) lines(x,airy_Bi_deriv ( x),type="l",lty=3) lines(x,airy_Bi_deriv (-x),type="l",lty=4) text(0.15,1.44 ,"Bi(x)",pos=4) text(1,0.90 ,"Bi'(x)",pos=4) text(2.25,0.56,"Bi'(-x)") text(0.7,-0.55,"Bi'(-x)",pos=4) arrows(9, 0, 10, 0, angle=11) text(10,-0.1,"x") @ \caption{Functions~$\mathrm{Bi}(\pm x)$ \label{airyfig_B} and~$\mathrm{Bi}'(\pm x)$ \citep{abramowitz1965}} \end{center} \end{figure} \section{Summary} The \pkg{gsl} package is a transparent \proglang{R} wrapper for the Gnu Scientific Library. It gives access to all the special functions, and the quasi-random sequence generation routines. Notation follows the GSL as closely as reasonably practicable; many graphs and tables appearing in \citeauthor{abramowitz1965} are reproduced by the examples in the helpfiles. \subsubsection*{Acknowledgments} I would like to acknowledge the many stimulating and helpful comments made by the \proglang{R}-help list over the years. \bibliography{gsl} \section*{Appendix: The Airy function and an application in quantum mechanics} The Airy function may not be familiar to some readers; here, I give a brief introduction to it and illustrate the \pkg{gsl} package in use in a physical context. The standard reference is~\citet{vallee2004}. For real argument~$x$, the Airy function is defined by the integral \begin{equation} \mathrm{Ai}(x)=\frac{1}{\pi}\int_0^\infty \cos\left(t^3/3+xt\right)\,dt\end{equation} and obeys the differential equation~$y''=xy$ (the other solution is denoted~$\mathrm{Bi}(x)$). In the field of quantum mechanics, one often considers the problem of a particle confined to a potential well that has a well-specified form. Here, I consider a potential of the form \begin{equation}\label{potential} V(r) = \left\{\begin{array}{ll} r & \mbox{if~$r>0$}\\ \infty & \mbox{if~$r\leq 0$}\\ \end{array} \right. \end{equation} Under such circumstances, the energy spectrum is discrete and the energy~$E_n$ corresponds to the $n^{\rm th}$ quantum state, denoted by $\psi_n$. If the mass of the particle is~$m$, it is governed by the Schr\"{o}dinger equation \begin{equation} \frac{d^2\psi_n(r)}{dr^2} + \frac{2m}{\hbar^2}\left(E_n-r\right)\psi_n(r)=0 \end{equation} Changing variables to $\xi=\left(E_n-e\right)\left(2m/\hbar\right)^{1/3}$ yields the Airy equation, viz \begin{equation} \frac{d^2\psi_n}{d\xi^2}+\xi\psi_n=0\end{equation} with solution \begin{equation} \psi_n(\xi)=N\mathrm{Ai}\left(-\xi\right) \end{equation} where $N$ is a normalizing constant (the~$\mathrm{Bi}\left(\cdot\right)$ term is omitted as it tends to infinity with increasing~$r$). Demanding that~$\psi_n(0)=0$ gives \[ E_n=-a_{n+1}\left(\hbar^2/2m\right)^{1/3} \] where~$a_n$ is the $n^{\rm th}$ root of the~$\mathrm{Ai}$ function [\code{Airy\_zero\_Ai()} in the package]; the off-by-one mismatch is due to the convention that the ground state is conventionally labelled state zero, not state~1. Thus, for example, $E_2=\mbox{\Sexpr{-round(airy_zero_Ai(3),4)}}\left(\hbar^2/2m\right)^{1/3}$. The normalization factor~$N$ is determined by requiring that $\int_0^\infty\psi^*\psi\,dr=1$ (physically, the particle is known to be somewhere with~$r>0$). It can be shown that \[ N=\frac{\left(2m/\hbar\right)^{1/6}}{\mathrm{Ai}'\left(a_n\right)}\] [the denominator is given by function \code{airy\_zero\_Ai\_deriv()} in the package] and the full solution is thus given by \begin{equation} \psi_n(r)=\frac{\left(2m/\hbar\right)^{1/6}} {\mathrm{Ai}'\left(a_n\right)} \mathrm{Ai}\left[ \left(\frac{2m}{\hbar}\right)^{1/3}\left(r-E_n\right)\right]. \end{equation} Figure~\ref{qm} shows the first six energy levels and the corresponding wave functions. \begin{figure}[htbp] \begin{center} <>= f <- function(r,n){ -airy_Ai(r+airy_zero_Ai(n+1))/airy_zero_Ai_deriv(n+1)} plot(c(0,10),c(0,10),type="l",yaxt="n",xaxt="n",frame=FALSE,xlab="r",ylab="V(r)") axis(1,pos=0) axis(2,pos=0) x <- seq(from=0,to=10,len=400) for(i in 0:5){ jj <- -airy_zero_Ai(i+1) lines(x=c(0,jj),y=c(jj,jj)) lines(x=c(jj,10),y=c(jj,jj),col="gray",lty=2) points(x,(i+1)*(-1)^i*f(x,i)+jj,type="l") } @ \caption{First six energy levels of a particle\label{qm} in a potential well (diagonal line) given by equation~\ref{potential}} \end{center} \end{figure} \end{document} gsl/inst/doc/gslpaper.pdf0000644000176000001440000102256512251674041015136 0ustar ripleyusers%PDF-1.5 % 33 0 obj << /Length 3127 /Filter /FlateDecode >> stream xڭZIsWmԙųt&sJ-+-Rjy@P}Hd -^lzqu7ofaJeM7wRw+Y/~ˮ.dj{i>;/.OÀ>Û7?"lJ`c"ALv7vÔx {u> xoV5kMm܎P;>VY7̨:-.[Z핶nVpP>S ngQ|yP?⻛?/ pf"/rr_^aV4iVU^ie9}w "fu$VΉJ-M^(Ww|{9 k}͡EGXlဨіFw;.lj:͍gڜUQۨK:%2/f,l4 #wfZ{U%999zSAP |\5xmKP`I{5;uh8S/ -|0A6i(AY'(~dyҤ$:)s20͌Qnb́ [ W/( 5.sC ʡCqnCGir4x㳁ٯHp>mk3 k^p3\KD1B5ƶ_sXG(9 u#VV=E<#8=JvalP[Qq2.@Z¾mi7̐?aR;L?^<خ&!A G7 8\5rĒj97[%}<1p58+,7zA CdRBC@& o"5+!d}+*,#084iܳ[VxⴞdнL U j@$p~!TYI2|Cz*1mSwZJ*@B1OpO,Ҕ =R,$;uYzE2yZ݅ 28:hFr'̱" #/ qnOB@Y g݆z 98] Q,''B"u̩pw9hcH=Y48 S׫Z+_F] cI2HyuAaGT6!Nû_0f M. zAʕw Y >oC VVMG Ң:XO/$2KrLˎJ{. 2I$.cH:m[vݩ(E.=gL1,?LNi䜫؝{"2wC. ‹5vƊp5ҁٱ"s֗A\C:1?k \[;kjGrn/&Ji;8#rQXfL3 gФu͸OCCV\1I?d< dZ 8\f5%m e$yq Py|j*I\p ʴj-u dl :Lej@eӁB-c.> 68aL8aQSAܕf*lʀi3I04U5) P՜7NC5?lb(7H8hC١eLJeͦHބ Ȍ\z8RA餲\ W{nªY5Z#>o1wѶtdÎYgE11LsW*n1 v<~bz:iMR$KGGBT&)uҌﶉ7Im.5,8 Dq/N^3~s[LWnZMā<_Nz z"/wH@8-Td8b}Y>9 >uDwt5cR4BNOIHɾ3i IFtfٹԈlNIۻpx]B>xNzTӛ "TByR=!0֝B9I2ma|xx'B j?>uU;5x7b/UNc\c0〷h}}IThaB[TbhDQUE}cpGp)]b" h2ƾ>1fB1N!]B8 JgՖs1YJ\7IoI*K$_zWHf# 9'ݟ8qTe駅8b؆h%)+ V>ӷ6 JԳ{YF8{Nt=W6/u_cZA93̂Oի~x:}Xm$)=uq,TfYô"ѐŒtsv>͡a B>m˘VHcO3rPE:&NH:Σ I,DNszNGYa){1DOB nȚn%y8j\s+WgMˍFTzUM~O!ۂc2+Ǩُ/ΉUAZ;Tv+ɧ MxYot2! endstream endobj 70 0 obj << /Length 2929 /Filter /FlateDecode >> stream xڭZoۺ'Y(itwؚ|-EVl#~ղoHQP4C<(d1I'7yTUi'ROP'ɗLc"]Jk [r 4&4Fei@jI@V7SS$O%I3gn2*=-l2άIw] 63v σfک8-䄛6~[nJ(@RKԝp ^feViy8y~Y/]q"A fW~Z`]aC*kwz.9,\|, Ӧ :Li m@ {ae`IH|GCsގ]Vd;۶+l#!d")ώY ?.V$dl5U(R+F`_YVz,12|S:ݱIz5G%XDAM-; =И ej$OQ:M\ !5SPc%O/YqA QEQM.`bs'32gP{vkbɲY$))?L͋P8 /y"{~"|ka '^ $cv|`~sGj !p! ~2(ʼnZ²{wyZX6p4B* 9DO4֌4M9=)ا"J;D=I[GB.HtVH-}yxYd9-`x&GIj@a\YYWo0$6A>m`'|o븊p.B"$XQRC=*"Hqc\2w"vT2ad"qU9 vCSݱ{؁ 6 lԠܹV4 MrAH&M0G=>\CPβw+8N$oM' f=*d.;§4,Dz$"7[𳓆1*5՛1j]F(dfԉi –?fViU^p9<.rN9uc+ȡy!;خ.F4@AT=$akeWC# ʼTB $Y?uI)S j2GJM;jRn_ 7H"˾!t-qC%3y䩐g#_ P ' {߅DBwI !`z/͜q\u6|'k Yص?rrx5wMJb߼K8cp%+.K3Hu"KnͷM1tZ)I5a^NjCi_wLrU35~u:JI VfbUvfUDf9seesڹW|Q.:*+E_.?A}y*,Zd.~]a=nCf]y.K(%{d9s>>bsv[uŰֻT="?cx&οb&Vrްn endstream endobj 89 0 obj << /Length 489 /Filter /FlateDecode >> stream xڭSr0 +p ͝rj[(qfjKO/([;$Dl8\b03=BCj˼Ь઼n*,iU-,?Ȃ(|t-uapGqe#e0)xq| 8F3v[|/CcU["Oz YO1#!GPȜq "wUWU"S>p#\D0Yy'Fvl&0hˆ (S_A$=SڃbȈTsŐzRR2Df,?>`JJ4_.EqC[]rTI%i}5wL`/ T-l,jh*Σ}vwR) endstream endobj 59 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (./gslpaper-004.pdf) /PTEX.PageNumber 1 /PTEX.InfoDict 94 0 R /BBox [0 0 432 432] /Resources << /ProcSet [ /PDF /Text ] /Font << /F2 95 0 R/F3 96 0 R>> /ExtGState << >>/ColorSpace << /sRGB 97 0 R >>>> /Length 2443 /Filter /FlateDecode >> stream xK ߯]VDl@h}. bA[/ߗxlds %#E׫_?ߧOOw^_ys7_~QM~~YS]WY#v=>\SZӫoԘY;,Ѯ<Օ>^=H1(r1z}^/߾%u.׉Wᆭs$w>wpicsGɜZcpdz;gS7xֺS7>ȳd,i<\0Wp ^+ѳVRkq0=bS#Dξsxܾ/|GxOg_K}Ъ$ԗ.T?lsj.VS=J}fJ {%KdXר3uYLИvVլD&졎zD^ Tͺ Nj*nn<"ZJQ]u[EiT:;K#KT=u}T?GPMkª(xꪋw6CsNYjf|VGiUIXfy JM0{\TOYgӬ3=nL%; >$0G kѣFތ`hd]∣!>r{Z^_iΠQ?f7hoLI'Im5JBG]LKXpI CШ-FW8F௨zI͜J'PoA!^AF{Pg'\(Q7GO-n誥衵O7U.:4˻yr  8W':<GLOP)8OfOV'S HJd+~%›edd&ɂ雐MT9Y0:i"RL?d)0Y g\,-Y5EYpV,Xɂa,03(;,INE:v"u"ީ4ݩ@j%ޝ J+;9,M%Et d!x#|Y,F;Ydv6H'g'c' ,O%u'{>d@Yd?NRl,EܶC-㐥_9*:eI`ew֛,(iX'rN{Nx>Nc"X :WNIBRԑs &i\Yۛ=9W Ji]W|++Ruw7W^W\#W}OMi+$maER`6ؠB_;TĹdT%6*CyCiPR͡"g30 |Rg6ݣi1Eȷ|G/N8|AG|l{¯>*q%p?#g|4 8 W{|x} 3l/ J endstream endobj 99 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xwTSϽ7PkhRH H.*1 J"6DTpDQ2(C"QDqpId߼y͛~kg}ֺLX Xňg` lpBF|،l *?Y"1P\8=W%Oɘ4M0J"Y2Vs,[|e92<se'9`2&ctI@o|N6(.sSdl-c(2-yH_/XZ.$&\SM07#1ؙYrfYym";8980m-m(]v^DW~ emi]P`/u}q|^R,g+\Kk)/C_|Rax8t1C^7nfzDp 柇u$/ED˦L L[B@ٹЖX!@~(* {d+} G͋љς}WL$cGD2QZ4 E@@A(q`1D `'u46ptc48.`R0) @Rt CXCP%CBH@Rf[(t CQhz#0 Zl`O828.p|O×X ?:0FBx$ !i@ڐH[EE1PL ⢖V6QP>U(j MFkt,:.FW8c1L&ӎ9ƌaX: rbl1 {{{;}#tp8_\8"Ey.,X%%Gщ1-9ҀKl.oo/O$&'=JvMޞxǥ{=Vs\x ‰N柜>ucKz=s/ol|ϝ?y ^d]ps~:;/;]7|WpQoH!ɻVsnYs}ҽ~4] =>=:`;cܱ'?e~!ańD#G&}'/?^xI֓?+\wx20;5\ӯ_etWf^Qs-mw3+?~O~ endstream endobj 102 0 obj << /Length 381 /Filter /FlateDecode >> stream xڝMS0{l ۛMM< `eP׻M 3IIwwT `% > /ExtGState << >>/ColorSpace << /sRGB 107 0 R >>>> /Length 2059 /Filter /FlateDecode >> stream xK]GW;]]:"H@_)(<ˎg޻\.^l9=x{yt-ᇟn_}CrsB.o~!1_ȹ~y<~Io=߷?_nr|?oob$4xR<ZZ~wy>aռD ¡5cیZ9mL{HCN9mFMASN{14^34PSN{qRtH39ҳ0[b43trb8=]w-bJBs<ܮ,1;ۧ/֔Bs?x/XǹMEUpQHsx/m?m?5ninnvr\6fKwH 1z`Pj\?k1?~zʃY{|骗i\eJd5p\Mǿz|wK,%[ad=dέ 05`v Ւi"è[a*r608o0s% NR"MB!fkhH[A8ؽb?'^!m,]LbI8v 6΋v^T ía!AG$%Ne8d>NX.׭K`x[Q8q iF%1pNy ,m/:˜h.%6E%e ,J=-% ,BuQLh "ۚMg9ǍO {%?1Үw;A, Jhϴ<qh- =~֘&qDn|nfh1wXbE@{hgN=(lyƬld8)re6SO…pz>%?iJ?mR@Jsp!$,2ĻKDbZ?wT|Q3(+lK4k|VGxaPF6EwgB m%C0Mno,b{eOۢ? 凸=21oOH?a#D5E5>`U:e/ eh YF5;|[m YQ }Xjv~t6`Enz+l ?6azY?}-Z,12֏Wf7.z"GfRdon뇊TU-C"w8 ,-I#,SbG{~Ĵ!QgEzUě(#5Nw@!L?OفvHqQ&PڍبdKIlvF'݈ c߈:5 mG (;+؋v I ~SDKRz'wJʾO)q'ǔk2?DII@Tݤi)%7]Rr?mKJkuIIb^Rvg3b3{%&{Fܭ%-65ml3N6m1ٌ^O6yc3ZHٜkdf;aL6""]f9S{k!nl^o g3FVq6WԼc-0̧dsxO63/6Lƴ؜ثb3KYl&bm5R^7e"g3sv'u'Q1:uN&_ogyLM4t|l3~~Cb9YMqɛekXqL0'֔,0'H g5qfʲ& ϛJBr;h&60aOma~9`w0v.T+"{RYwɓlirUܓשT.|8)oR98_-*|V9}QbQlBR hP+գ{ }&J_{zl} }֗7_zS}ʟ {{6Gz#'nn|}_ω endstream endobj 109 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xwTSϽ7PkhRH H.*1 J"6DTpDQ2(C"QDqpId߼y͛~kg}ֺLX Xňg` lpBF|،l *?Y"1P\8=W%Oɘ4M0J"Y2Vs,[|e92<se'9`2&ctI@o|N6(.sSdl-c(2-yH_/XZ.$&\SM07#1ؙYrfYym";8980m-m(]v^DW~ emi]P`/u}q|^R,g+\Kk)/C_|Rax8t1C^7nfzDp 柇u$/ED˦L L[B@ٹЖX!@~(* {d+} G͋љς}WL$cGD2QZ4 E@@A(q`1D `'u46ptc48.`R0) @Rt CXCP%CBH@Rf[(t CQhz#0 Zl`O828.p|O×X ?:0FBx$ !i@ڐH[EE1PL ⢖V6QP>U(j MFkt,:.FW8c1L&ӎ9ƌaX: rbl1 {{{;}#tp8_\8"Ey.,X%%Gщ1-9ҀKl.oo/O$&'=JvMޞxǥ{=Vs\x ‰N柜>ucKz=s/ol|ϝ?y ^d]ps~:;/;]7|WpQoH!ɻVsnYs}ҽ~4] =>=:`;cܱ'?e~!ańD#G&}'/?^xI֓?+\wx20;5\ӯ_etWf^Qs-mw3+?~O~ endstream endobj 115 0 obj << /Length 3449 /Filter /FlateDecode >> stream xZ[sܶ~ׯ5¸Lǝ\;t$%myweECz A r}%@\rr5O^<̻_NB5ͤvh_L6oNUS}ou:^Oo}O? q}-T0-ˉrj25N(vS]Ww(~a'|:WIb]|΍?H'j[E iU>_$./ͩ0~ᜯ6|Ef.|ͱl=ᾤeET{֢Z|Eۨ 0-QtfO3%hj$FPpAOgMs+a$^oNͩjYCmUξ"75u52 L6Y/]r}x6x ޛα F4]`|zRZ6ɴI  ǽ-Q) lRl)EcS<^M=ZlsnWh;tR,Y@nI=|a /}ŽjAҾXc[dQ&I r0 mPɫ[#hpOZasBi2$W:(gΦA4Cc1ϮH4[_pOm֫" S✱K١K#RDܥ3uRN|3l2M`-@n o&l!oA2-{@SU} $3z>3BdVV/qxT3m$z e|۳[lY,8f`(tg(>PKڟƠMg7Ō@#l)Iqtc $Z 0PI ,$* & 8AzIvXYZTרQERIm!]9Qn"_>RG Y>EEK{ݮ@hO}1/ia=C@ rFId=fݱ>~h=G&mq2f0٬@ b=؆4Iۊ7y.6Kjyx"dK~~J Wr"!; 93[}̵g܊ yɖu?&I]7Io'S#FhR!Zwf|zC2Z<&*Gr /jg\e!_%d$լAle=wf)"MO{{q ve+E!j#XA A W[^˶jrCRx ctUzFA t`@#*+2ѧ'oOYP]. yZHd:G960MQL_yd(l7 DFE\ VU_M-OLz襲^S+,v#l%KVfDECEXƥ%mh4z H[ɔn tΣZW&@U:)=X* .b֌J+E9@ AÕ = L;z /:X0|DK 2~_pK'@o`UqT ֣wnϊV}xߗnec k"7)eEe8B BŲ_ml!f[~y)GpK h.F³Mef.RqSkDOY@|;QJ/י+vI׿YS*Ķ yr껴ѹ\f ~_Ϣp2a.32%4~&7_e^E1 ORU9V-R#Eq+vBEͨ(ю'T@Vks|V06lP'DNtf-!m)M➘T`Ӝ0" P6ilr,0pQ$age Νe#)gBڄ(>zZ(B:wԜu"@VK"w>7ݧdWZu:-gUǮC^rx^tN||k^+0T!k?tyߦAʝlds',m,BѦo{ȼ@M`zݎRQk,a##.IhK'4jJ/ z0j &&V*tYM]Vj +,4fa rj\}I0̗`P\=׈*cb~S'v)\~G0 s?9̕UPͷ?G1nRѼȖyGTG;.P>l: [0C$X;R ,BKj#1C;5Ei"_ rO{qôw<:hƩ4(OL0AsV7# &ygPEtߺ]rZCowi1'?{plWUkX?}Sٽ"2<ە0yw*uw(Vgt%u({;fxPeŭXSHvaыǔj7f Hvse ٬X@aٮEާŋ]`ÃU-~]zv?C#q"}@zU5ZcƅDgEu"yac.Հz$Sw}1vZ3}Y~G{ПDB%PAQVC *T&}[8~$+LSRҍvMir$nH\=p"?({$ endstream endobj 135 0 obj << /Length 1905 /Filter /FlateDecode >> stream xXn7}W, /)RހukY [+u̐\--ڱ'V'\(w|фd m DNc]VEE(砎nsaxÛiop^O_3a,&qQLhgveUZn=i4[&921L/*5l4Z!KT,q0sɳZdEݫJxƍ*UV"AV~DC`i#yb<8E+&C.yEó%jKo RfN=UHt4WՃ&K,̸=Ev^2gkEU5󲢥Pݞdi`/X9H՚*eG8C鼮FTT75>֌6Q4_ω`̇k|MZ/0fUv6Kא œ &C\a jȗ{ ȥZC'1^ sRBRѼb٫T'bcĻxŨ]\`+kb ,NJ^)yQlSJE}dCgr(y+T€ saf@ ~ܢ\8<(Edžȣ Ec`8U]1L[IS9E\*!T,xS?S>U ̆ΚEa\uqX-TD4Q')tߊ fXo4=o#aonIthQS\5oV:{ oj,Tn."ﰰT}:)Jj.]ᾯvpmC%'z?<T GJswIF&5sE33 f%3i] ӗg(uo|M4YbÉpo}SWntQnw_<>!UMRAeb9`HW,gr򛰜yk`x࿎4tJelo Q[,^0UiRAUz.}GvL-kG#H7_O9/GgZF[ncPKA&QpUL<+_XbCa̼ޥ Z?x~,_ʩPx0˽xOpgY,6cAB=*(QITf7DCLIJKĘw}Qغ{.4x;j\cXn)vEj] t^.asMg,78(v8P|IQ7t4=3&#cb g.l`IWEPN3xAHoW2zuS8ɗr)[:uĻc =(> stream xڍRMS +H@I<:qRs6tLj@]>/ 0c%L%E! I* L&@9]'I1j]!N.z+&Bf" uQ >%(mD_bRXnَ\3RW`rMgOxԌD]K. t[V4:Scxr6T|mo4 ͉ה=_Xj8%6"D;u۪֓"9m^\Ptkhy ax =b{ceYG]x Cc> /ExtGState << >>/ColorSpace << /sRGB 146 0 R >>>> /Length 12566 /Filter /FlateDecode >> stream xK8vW="^63=e A~ EW ے6EG?Ͽ~Ͽ~uO/_~J_=_w??u]?s}[}KW/Q[kgSZo?|u?'/}s_uϟ??w/ű>9|so!] |~cR_rac_?s_ټ=5{vB_?w~(jwo'<߭y}k~wK_<;Wwn "_d&*v叅j>'>jq?W\wg$_?ETWk:~՟_r=?HrH/W߅*cTqutύ~}61A̋`Fo)j}+G"δp__v}݁s;/`+tX8:]W|::5;Ҿ!~:Q|;w4j;.oф Gvlyl_8"NyT++u;v4W#%uTW[+wĊO+y!n 8!ݫVv-:OW~'qautDt]ѤwDƁO9N}jEzSׯR LqDJn7ǁ7~ <wn5vK<8u%g#VO'~NjW߈g{-~(8;"5ţg'z` !B Ԟk <?H8h9(xD"B||d|q/ld0|WV m}GIwtSϛWG_wǿK z1~/vj8qqOފ W=O]'"_7N;y^`^/dOmq L~#~z້[gձWG!D}50Ń!ou8~nAexZpe3#~6u %U#! l/bj@p/%. f!Z'hw\xHD~C.f0k$|ޘ׸]x]::.hxZٻٜ%F|WNd5oQ^"7+WN<ȟi\LYJX=c0~_Ԟ9H+72oes$a߷8{RxVFodg+#+y3)y,,HpEe|3~őd6oy;)V:O3őy3h=\^tp{VW~ q=ϋ3xopG5+p4Qk0WSf^}`Lz+'qgo+Wy,F{|~K<8B+GW~bu+_dg=Z+7qWo0g=7 F> |[y|>۟`l+8ǿ{H;8{|_kc+w_Ct`!sK<O;Loߕ S^<}ǺQ]f1W>//d b:cZuW>d y}ʼnŅ:NFG\|Gypo#F䕈;ɊߊO9ybyhϯx8cpq"u+}"g~tW~+x8~Շoǯ!ߟ<_ܑ_%yurr3+'7W_x|y^_s=9;~7rrq1;vŨry· +÷Wy֓qrtN3|pKO/n|kg^(\7^^[V>ʛNjxⷬ|[~+{qxy_A ߕٞ+x+~W~[+W+V>O/ 887 Qg{Fa^|wz+~W~k+W[~qvW7w~]yOPV~o;߃ߕSz+~W~g|O=^<^w|7 qXoW.?ޯV.ވ&e!Q\N^&Z|"(2u#À/S]>n\to80Ä@ւ%wT.Q%u *@:(@TY\v"K`I+@"Q(@7K)*@$K`} jpP.QV%2%r@DeM*`X!d\Ľc)\\eKHm+L2*5[|\Іr f gC%Qi@N%8\ {%}r r١&JJtT.R>\P:Kſǽi\,RࢡRr5?r*XiB岘+岘rqg#}2KTT.I,r׀lRTR.YiPFyjw&()jOAPP̛݆t|JL]fV.\frY#YeZqI,r.IK̬KLEV.%e)l\KR.3IH,O2\fb eElJ2_R.TIei2\eB2T"rSp|J \J&V.+=//2˘:R.crʄe(Y!(QSP,V,q <>rC%})1R.\KIIrz e )(1\ƔBr/\G =f`(1?R.TT.C%6+P ek2 PIem /r*[L\0Mr뉊%S؀Je_R.K\T*T.SϼX??r7YJ ƣ\R R._QP* IV.\S,e xRiPLk+G<\Kd*8-T&T..2,\frze1K%oAҡr0brˬ*J,`ˬRR.S/+Yd\\-E$'岘[ej_)xT.˼Ur, GrLurK\6{*yIx\fr reqNG&'~NbO)R.K0O2K0# V.r "rXL=a<>r9+`=#V.\f%Yx*9[|Qg+tTP+KT.x\\پT.%ARA-3r JEy\ 7}r\8kAIʕY/rAsNg]LIL%@{z8T.= P.UA]lLGr ,wܩ\y>\pP@zfIGK0%go2~JT.ݳZ*YI C *,x=PN@ONP.OI|rAKer1;\9K%;3\`=O*ɝ %Xf:{V~r OKf3<%X %9Ǐc -IvgfLnQJT.8_g+|R`M%p*Oi\_rAQdǯfVoJ);~p* 8^Urr%J72iv+~(\T[= &qZL2W')\T"kCqrP._X:ǫx\_V.<*=^rArJy*{+' _)̓LB?wvTP.hC)2K0KT.8 f&K0* \ ؊%C%hP.?9 \p<>[,傰n%N>fY}T.xuJQ[ T&Uςr > rYbT. ǫS L38^/*0?N #q:T.%y(0Cxǫ q:t:ǫCG|r;\2okr ǫ-˾ߕrCAPǫSLEr*OΟ\(aR'*rs{P.!xrSMWeWӤ\> ҡ\h?*\8~*0GrsP.볕K\%e.QOry`(0ˋG>8~ŕͷWX#R.w֧6ǯx>u<`(3Sz$AŕͷWXg9y?y2ߛ\NgP.W7뫪WHX_|{"Q `\jHo5r)B% 9@*^١It\hr7{{)ޘ\\zܠr1ems`\r\ҜBJ*P.]c)>΅yT.]0)>_\UR.]`K⏩\T.=CW_ʥl)>\4KרKʥMrCAһgPt+\2ryr͊ʥb\8JʥD$o=e,ҫJR.z!2*.eҋK/B;Gt/t#ҳ*r^Jeq"r.QK\d)[+-\SiI4?.岸y '҆riX4]9V.mJri]%T)KkV\r{t׬*H\JJV.] YtڑrYY)uy**\˭\r\JV.x\ZrRV.Kr~^ʥ{KUrT.%o)tOTǣ F>fʥ, M:ʥ+岸\P)\\?Zt/&/\^ʥya))6\b<@B҆JR.MOLYDeXX,ɞ|ʥ))_ʥYiI慽\->%+r|LeSyoR.MK[,rim>*KӬg+ \rriZhʥirY׋K:R.]XSY\St=lKRR.1=K#kV.hO)G$\<^r prϣ\^\`rz$ʥbrzDʥ^+`%T.]Xtʷrq}ʥk|+1X(`K\Nb**V.]X~"ҳ)R.][e+ҳHq}U\]_})Nj\"ry%w>5.؟؁n}a~ratD.EC>ȬQ.\I %*K`}K @Dҥcr 䦠\ \"#+r lr rtO\wga@\"s2($~ K ~ r(z  -ñ6rQ=\p"1F+V.A_c1wQG;riBr rIP.8TP.nBrAyXrAq  OG%I֬(IJ@].1S\Tp#Y$\Yr.xKp>gL\:ru#2@R. Ix@+g0*,!KaC2G2r#+9.*s*})9^r8\K?O2]r.YJLMór A0\^<汰P.?rP.8>dV2r rILu(\lGr9=ROZ2~\p'C rA| eh\4* g+rYR2AeS*K`u(z(/XX \_.~%%L*/\PP.,\\,qZURrG&%W*`p\T&U--> <8^”r fIE +99~y2>Yr >g(W ˾ޤ\Yr r{(Y/ޥ\0~RI,FdO\Пܟ\0>B_=)KPR.h6* 7no*dZP')ri"ɾbIe\?V.Nq7ǫrANE9^V2UG\ȓթr%C~#7O<\y|T.KE*ETb J%XF*1%Y k+!nf/\T>^f~AF`\08 ؊E[^\\rxJ/R.gV.R,P.`~>x%/.\0^X^D)]Or|}r ҹzMu:ǫfQ뫌o*0GxU$H}*'@ ǫKŐFg+},ǫT.T6 Za+Ȣry}Q.~rF\cr)z߰KQHx#)ρ6r)_rI)dKR.1O\^(R.塤\KUrzC~KTLCʥR.UoroRR..A)R.1YX,]KAR.Uz)2'\^Y*RF!)HxKSR.jRr) Q98+**Kf7'KR. H=gRgP?5/RԀKIV0T.%.T.EOX셜\rʆ%]R.ٳV\ߕ@#~r f %%9*`>5M̒ ^\\rV.>[K0 ?qa%COrA\оrA|PNϑp~g+SP.ca10Q@x}(.*X2\vrAC _\Y.zw Kt,,̒ K.9KBR.C >g+/JpT.;_ISQw4oQ{Ruʥ.(`>NKł C?8/\П.|.,VЉKW=T. X~\eRʥ)h+/lR]rqmR\|`T.5y0*X(L֒rT\0K~ KSV.%|)lLARp\KUj0KV8T.br Y AZxab+{\v{Hrʦ:߳.KUʥ+zf`s*_ʥ^~\"X)}R.Hp(YxV.Yrq,,rRV.z1*\.*\p\^UlA%dY&T.ѬIf X%,bcK0K½V.%y)ܬd\rɚunHK»V.YHXnC咷"rɪ'Xd=c+OB0KBxR.[~e咭\ɮOrV`R.ٳ\j咧O񽕋QV.yzy\ܿ[dMr)z$ʥhֻK#lV.Em+/4oR> stream xwTSϽ7PkhRH H.*1 J"6DTpDQ2(C"QDqpId߼y͛~kg}ֺLX Xňg` lpBF|،l *?Y"1P\8=W%Oɘ4M0J"Y2Vs,[|e92<se'9`2&ctI@o|N6(.sSdl-c(2-yH_/XZ.$&\SM07#1ؙYrfYym";8980m-m(]v^DW~ emi]P`/u}q|^R,g+\Kk)/C_|Rax8t1C^7nfzDp 柇u$/ED˦L L[B@ٹЖX!@~(* {d+} G͋љς}WL$cGD2QZ4 E@@A(q`1D `'u46ptc48.`R0) @Rt CXCP%CBH@Rf[(t CQhz#0 Zl`O828.p|O×X ?:0FBx$ !i@ڐH[EE1PL ⢖V6QP>U(j MFkt,:.FW8c1L&ӎ9ƌaX: rbl1 {{{;}#tp8_\8"Ey.,X%%Gщ1-9ҀKl.oo/O$&'=JvMޞxǥ{=Vs\x ‰N柜>ucKz=s/ol|ϝ?y ^d]ps~:;/;]7|WpQoH!ɻVsnYs}ҽ~4] =>=:`;cܱ'?e~!ańD#G&}'/?^xI֓?+\wx20;5\ӯ_etWf^Qs-mw3+?~O~ endstream endobj 2 0 obj << /Type /ObjStm /N 100 /First 809 /Length 2463 /Filter /FlateDecode >> stream xZ[o~ׯa~ EhAۺ~`(Zf#^))lŊ$b oΜH1y%KLi˔di wi L' FZ3qgSӎ0|L<3*O3+(`30&!=H@H#$3H0h#V^;Yd5D)(0UY wCV*" b=$LTO&0>@5%amTD 8t"r96GEA2!0t8cGJ{@Xv @H<K@`&E<`(lwItH_A I=H#<C,-$ 2I:p (Q '8OVKH SЋh;UѐEb09 O,vsA1B JHK}J*hkM] ~tz&~LGo-Kjzo ѣ᳓**gq1/']]_z^__b$c= DpŻuU/8_F ') ez1/=++7f1ez[_CC${ ӑxu+L6t#׋&/&'-e%8hb> 0@Gj;'F3C3CSBhm؎RVGi݌%/ R< \B縇6h %ϵ-l ~UJK;K <9~,p&<r'} Ra7I6XM\cAl|w hRx) X2FuSKOBB|;xRg_唲j[G9UPK0FGc""a){dlVߔA~D@3Z}A-0NFr~ g?/E{-yȋL`˹jztvӁ]C5fNDyxQL?mg#*e5^-uN?<;ٞϞcm̴y('ռ,7bVV9K^@"2-.[dq "I}(D/Be/fh,ok ,ϱb\by9>..EENëE5ɚl-ZQOx/ͯ8RCE\]1]␲}nq(~8 8qC*KFj;Щ |ڰ"RwT5v\_!II효|oKwZ_9 V{ڻ$u ً)uM<~*ͨ5xO> stream xڍ4l7^R*V)B[gD"!jQgEQUjZE=>}y;9'}w',Z@Y5\ r@by 90 @Dz7$qEQbpn:۵PsG0D ,,@ ѿ1aQpW"y7agv]# vuc0( u;]WA]4 wW . {77g1~~OOO>+c'up] `#/d|D={_z]'\+zᎲcMg8/gx'ݟ_P Ey#Pv[TRsr@Q6HWu<@B~w(jsan|/\߲"FGOîݛ:О(?-ec 3> WUr"x!`J mFv^#l?DP8  Ap;ٯpۿc^S5ЯNAu=_~9Y=E&'! ./|}w\k?#*  -}+WBM9(I /a(3)/12hqËs}%3  Esȍw[]<+/=\ה7>KĤޏeUY{JX j7(TSw{˾/踷mm3͕K\=հSDquN\kre.dYg\';]ן8 Y>xgS35k(%A:sD#tOmÈÜ~JjaA<;b?90rt׸2eqg˨Er)ރ2n߃gEc>b$k+G*bˀ1^U;N'a $ȩ#1උBBCʷcr%( T&ga2eϮ~=$Cqxm#W:'b(q3i`Wo=oKQe$~bsjJJĿdС SU792}Lc'%5д[T0B7S05zv^I.h5'zm"p(Vp%Myn?ǖq0y`M16 Z$ }"+ǐs>/`@p۔ϛ i|{9C>m{40^M^'ׁ\xI8g:OV^/ 4?dܘij2 9 zpGO< 8y m4nkfj2|v*=b;2U1~N.hJO[<恥o<GʰH {qV:t9\vvTfGcٗ߸:EͪȩvՔu3C,4]TXOcqidr_LiD0 . q{OD^zﻎ{ :^1_$om>H2THG&p141Ic0,37З_vR?Mz*/d^-b[YxW=iY M*@huׅշ*e HՖ8 z6|}./c=鼱hx. vPYA}&dbjhQ=O⪄Ȟp@GAACD_Hn(Ҝl̪Ky3L){ixXBOO%n<^b{!JD9z3=^Ra=܀e|LF!eHMQu;|7J)2%DecDL4_rjdJn9ힶ/%@SQB}ޛyf1K\]WR gUpEEAٿ8oɯ&`mKY&Ɨ(ߘ >=ϯXË%6ӝTTfXa3]N]1o;O\Kj>1, /ն- ԰W?r}GULБh4ޗbCvl6yS 5OX71Yg4a{ Kҟp=8Lh&#|[;ɸUi$0WP״Uv()nh( +P&pI$݅cS]dQi^c:T~lzo!z!4ϻWW\`s@^c%%o[ :ZeFӷwD5Dio3c综@ TII?-"^vXjMIR<ʧZ ~mIP䃩lĻAZQFr\n;%^ b矂іf<̽;$ RYb ̤;>kJS{pDƝ#ǣ'PF=IV8Qs:ōqf[/ySsgr;D*.+KOm$/|c. =:t2r2פKdwDE42H|rgGh9τ-55؅9yEKط׌;P{"ԫn8𤲎ղ&kCѼ]ap*VjC,jǑ{T_5f֖?:Z ykّۘ4yf ᨇA}fn&X8F Q↋{[XlPc_؞Hel]Uq~lo\}a鱲2ZLH5X$+a!=g<,'l.ό4(oE7laȒ^(OGuAK;!gv$K]vO6gi9h%#/P? "61CCD;M"hsda2`q8F]}[d%ą)ºT*=* -£ dثυUȳ&H.JrP#I8Hd/Ct 3L:iD)A1߾>n;tuL:ƂԈH  Xi taκcpM㜞!ea}SH?;;{~t>oV:@U[AM79T&F\֪0{cELun֚= `Y_;Ew"%a{59[? k2̬OأR?ò< 5/u~+{)H8v 6dH[A2v.YJ4߶oTȍӑYS3*Z\اH4xK_IL^ q—gumwp]?HzFA#ixr[c:}xd GbV}h; ɱJ n21V +mix9? 2 EM`!\]o9LפEQUg [k,69v -b8`_C&x@kڼ/hdCE0~lF5pMP'`B y|꘰y ZZb!+1ׅÕ ҹ){nS5x) ~/qRm#+ʏ>>MeDdυ)yoUtqMYMJސ[>G*%aud>8]lXY{,2T󸕤|0Rt r!Қ";CM8tQ#N!+Kj7N./ENM}ٝvrrȘ\mcz66教@ESWTd&SBQ3~maBL{S% l$r஀(ŝ9}l촕|+@Q`8T> stream xڍ46^ !zw}0f[щމ5 %z^{k<{?0p˃`8 'PV0 ౰BPz<c0I" D딀{Gm8  E$E%||;%'ha`w<Ef# F@06vh v0RI9"^^^<@w8A A:`' t`q`Gz` C<` 0p_`x yIWD@;;+9!P0੊@Pw}<m:"# tq@c0" C_u`~K7 + VW^񉊈n#>?\{=  4A[o{5O~7~߿N aP1S3ο cTP{E|~~!!ӁBdT@l߂Oqw+F*Pv??v == \h86u$~CaqWxA${ ɡXvsv0WK*߻'p?w $ _Rnxy`p}\=Qao($W# x!qG7__@ 7~C[vxp;N/:/ji7G'Y6M2عfo=k^=_F˧ ,+15bGu\X'Olv}~h_aPn8 [%CH«_ջab~8|zSoFD3wQEHۜ)j&,$7=ٱ7I_ Ixq~f+SU=4įȆ'Xv^jP.KF%|{џah c)SOf,Ρ]2$8>984ONuyt.M֕(rs[ PLGYbyAA{\cNN%H%~|o1*k[Ɲo݉Mg$]H;f/U}X曢pq3B3׻0M Mt};$;֏Q÷t }!v+ߕh1zQbfi44-=<`%`Vw us\ Y=vd^t;^!&|CߒvyivPɖQX%I2_l[p\se<4 1Rf~]pGfUfcUWIi xHɋcnLN,`zj;hild $5DHs]wWkSuj!{ȭ?%7Q\۱Q0ixθd|w_[ 'uM!~{(LmzF6җHk }pvi0Ssn=4{'ԤݟPs~:2W.{2M ԓ9pN[[c@̞a=9jY^UA zNk_kߐ:8]V\ncăAر*0/]S&Ob Q1)171ByHN!&3!6s$v$GꉫRLW__ϻć3#~n_S$V} |Gt^Y-yŵ*kv"uO9/>:4Vwtg4Wc`B8:~OPϳT\ͷWObL^)gol./#6ͳKlE6Ocn}m1?qSu^X%XEwɡ obu6z"tKJRƹL,+΋g>1,/FҊZ\!hRߍv|mǠ*#7ZQ#Qh9#&qva\w6dZ4B#0b?E<[5 HBj2D3+ qaBR'EFNzi tX-fyzt,$-=v8oXslxVx?TxyN9V,xm”p:Smckd<rE,,l) WդH}nhqsXh#~$Vds`UB:ZGs%.-/.Ft:wk`pUAMY߉.B۰ {#I\=, IX BFz=Q l_rg;m3y u\ƕ̷O#G-dM>J41mӽqYf>/V@|4'蝜HOGͲ+ G[t9ƎiȺfS_ YMO wO(5oE ֋Z{ fU16Zp#栳 Gnϳs7fۿF 0Q>Il5p#~@l; [W7hoSHճՒ?{9DKdɵ Fg.ؔ&!:sTR֏1p`O߃ Dȕx\>٦։)scs0Uԫ! O7m kdv=VSpMA."\Qm,qDV̤.=9+j7:F9(^]x+~}ۨ,-`B}a$!gjJÁ gUbk^Ia -C^q6WomV(bTȔX[O V'{V 6%EX%׵lE}MjGT2F/yn:V:w{ cORi}/K $G&zvc5,[@}T I X4Wh,]WfBUæ#o%AWvj;cY\vE d ݆s|PNw{$91ƻE.g^FE2}Hom1$S^Z/#IqsRÚ>'iZ" *\b;.JDlKRQ\xigQU-O_wb4[)"|~~3 떩0|Y@>ڳhy3+Pb훲"A#EZl%n>x qVYɗӣp?TvKIyI;˦9U9?zrwazfSi扝eP`Tzbo`kM,i:Ǐ}zd\i鬋o ?AgرnؕxdGQ;sj*'Lچ q[ {ωp u)WHp&qRX6,c^m诬Rb4TlsmSДC"5Oønڃ(a g}躢i̟%sV34(kZY{~hTExM|;}b5SYMB= ] ܭJr5)cn5:30]X-hAe^j"/%׺-]+r.[CBpH| O]Klet7I#;Ud Ok ^\0PQQ[2|-d~?{3Ts8yOPE宧uVb>GesU{)T[Ob\oMM3Dc{HV4$9 uv`w\L-Yk,_9|3h:9Xs?,u16mv]__|E6P#d#2g%: ȧ!) jc xW^~.'Q꘩]iD1Gx2(aVAXg*{ M62, k'6L8/O\w8,jmıRb? xm]u?CݗPkaM}!G-H~P.#^s|@g x=C#b$nK_if:a$cԋ'ء-eiH; >X0y0+)(r~oIj/``d6w=%ie$,'[֍bՒdi#7ȹi.ckk˦|=n!ө ߆NUd{dj2mUCb e6tOZz9-JҠݘѬylYY;cC;7Z^dԛ G`mkإ_@lK|2ÕFl +40N"| &uoo_ϤE y(q:*e7&[v ffwVo^|00V2t*TFdUg;}\۵<c&`D 1N^#_5cjQͷ"ZM$5Mx:Ԋӯܚ<\+&ApDا6‡V%¶ wI7= ]z:cyhr3/T=2Q86.^>_W-Sp3>2OgVh6BʵGݭ˫h,6x&Te.ц6z47 #UrJyzHl.MpՏ%m5$>Ln&VLTR[D~M0Uwc.|7T[h윏1xD/9C!)1t ow5'!.BQ0԰76I+pj= 4HBNYyQ3VLd+@궉UXYB[*&;=//~ίuc<,:˫]F$7JG7'"n&&r~>in$HșF{d|t8jP ޜ;I$6һ\[8FUzr#%]4Vg?%z0 yYkAɀZqJie|UUi(pI>hPrPte|3uB‰=*y)|@8-zNƳ *@S lx&gByw(ı||8Mq@Lrg^=glS.u`Q]#c,#xǖQU=CB9AU oRUX={9, ;:+h?`Sv NJmFn`q x>P^knY9{cY\<, |2h֠>5,>ĽZWTL;3x6&x (t8kn85ǯY7I ̺)hg)Yq¨`c4 !^̡d"KXXgW ^҂(KJ J ;޸ wr^Tdviu"ۜ T ^^Vcj]|9NmMW3 R+YShlҋޭ \,ݶ..X*g̑ NioC^qyn}k*^7=y'5b  O2 gH)[XmeQU? Ƣ#Oe-bp%Tm 9^P9HkTu2ew~᷋.S%D2UHIiv`1H dA]kJ}S-J̛&h'Hӌjú@}z#9#eۇ].aY }t̜~\n2F33gWIX1 *c궻p֟mx뽧eT E/,04;G 8QL&}:,xgHc]&tVV^;B,15h Sg?]]A[tq߼mkѷO^牵x}>)IWtC̰[3S7M2Q enήŷy-;}Zڤ$7p~n;'2r83q!|kO"2aK@1t̃Rw3[ u)F,-#84Lɒho^ 8{E浡qzh<:woTU?:3Ѱhr2⒓9Į`J[ IEvmb^ND!n"M2 b51֙UvWC]9ƄFZ?`/F&(D~?Lj߇pc`P7_٩Vl:b]}HceF-8&`}2:k1Y"Y:jl!_!w s("ً>#-j7>U)Q:a= ~JVNwK1)V0oGS56nf"[튌=v[&ǒ[Ru*5ZFQ q~zKlb ًN~\ҀʕX;>lDoyuְtIξtMJ#~Lt"*DԘ#aDD&Vo6\]OVxDT0}`>IO=4f ~ˋX -GCkUv>7+dӆo) k7n_SZӶ}a/CiWv'mܭߊ6(0Ӌf06`GyL+f&LqP@Xa[vJJh͆*}Fˎ&\9 j>ز -_Y{(Mu:՚ @O>{ b/+Mjjҙm߅[;<$&ƒ>y{G#^E=4O,Iߕ\ 0[H^QTCiX5vX.w;9cSzcDQYͣ Pҫu} Yrg<}V%Qg6+v K"ui8+ Q.i6ITUK}g].Wa?ЏAVrVwV!/h F5OO~[Iaҷ9}7̃H}3ߎ$EN~KߺЭf XOi aԜKigiPZ&ZLQz~ְ9e)ֻ& 3rA6bp@AZ^Q*^oJV^R"ySGw{ox M#lG]YvAͤũ@?\䦓9if~dK01 ཭t3';giUJX\F]IIiӤ7ϚlQx2,LJd2_hvޯPˑ*D?xM^Z)ل0AȎ'[:vM(;tv&k7 fB3rg ʛg/{u,1@%$!(fɽ=sniߍi?0Dh}h}Q%6Ip0kZX$uǩMUz]7; '!eE}7<0 BHO.UY)$a FzB.g_̘mxE>ÂI<4g"؛J8߶O%5Y6 z߫fvT:1RÎ)h+g-cfd endstream endobj 176 0 obj << /Length1 1936 /Length2 12755 /Length3 0 /Length 13949 /Filter /FlateDecode >> stream xڍPi.иCp@c ! w !\fvvgv9"SQg3.Ll̬ Eq6v++3++;o9M&ifȹ8ll<vVV&n s"3@ltF;x:,\@kF`a ftM\voLl`3B Z8𳰸393, +4Adb3@ /: x؂̀o.@'[v@h/c0j?#Og33'`]<\&:ML@&onS1řdG?¼Y\lgwqF>I,=don sWM{+PV/72K t=̬XHS`F y;.N@_*!Af.S%obſ;<zo`' 3zm|PS``7 bwt`߿HuD ڿֆo =\fo_lK:[z&v [Ͽ,m7ob-8u.&o"foi6A@sտߧdT;pLl{93KTVSJٛ=v.n'ۀsqޖlX.o.7r '`C'a|qXdFoAoc7zS8,A|</o`1zәmoa1dߊ-oeZ9XmV?[vC:Q5|}{QCVj7}{8Ulo:p[n+'&7jC7?[?͝۝6@KкӭX7m)e$'gvI#Db& =G@Vn9GW^4<{~a{eL1grM\H1=gong0'^I|c8 u7cV+4؝{( tIo0G-xɅEY7 w8r֒u/ LlJoOřnQتgwcO#9vzEW~q q9QaOK}rC++W"A4MC⫿h"i^IĄ=Wk'&?جȲOj VaCLA[֮u{)}=2 Y6{EXpu Y4/NfXÌ?EQ% dbV(BCxKLL R#h[-THJ#̫}d&OC?G(WO)$%ز9{"G'qfI4Ci *|ME nֵndH^z@7,QH5G쬘ȥsobJ]rWg|ƻ>c>W[%Wy:!Wع!ܶ^hb_R؞Yq/M9*n?{C ÷o1'Oy.#^9Q9N3cERB5Y$8ji.\ nkkj~X]L;3J,XrҔzWx>|TφPAHgIY`e{QaLKlcf;ձ m;ξ=BIncPRwnbtʱlsI|ē"(SB>N}FeטoEcĒH,2 >#aj_JaŽ44]Τ^/ & ;Aa~UC~0`ReB&f>weƳ jSJuOGD&bxTt!~Q%U2J"ۈ܄zth=Ôi̹t8`۹Qt$2jƖw5c/b㷥o|^o%H$L0sҢ}Qw 77Qlc,K2FH+1h |Zހ#Ʀ-T2R(HOGͽ i#X8=;kɹ/$*t5 :F.~T85]JA5Nҋ'N1dw+n )ߐF=Bc5{Jgh=No~/54&#Yؽ$;2%MGKcfs1sּ+fq'uOF)Dw&rzʵBւ4!*<6TTd 0\gwdS+]R~aҼ58g袬V%B+pQNIaIJ8)7o6Xv|pJ(c^s/+nwo1t3A*7Qtui(g וld1I~1F H6p@_~89h -nwfHMJ07A /]U"C}VC5nj[<î Bc~Fr/A"\(^ ' Ʃe]<_fO/wVy=ޗ>9nt1Ks.S`BL0reN:eIǫF&~@m 5/g?N |Wlxa\5c.ZY+z!q}kz"#/u> 9ϫ)Ȇ.,ژW-tKBcڒ`BnR !( .jSqKK-@3eVf6}xBG(o̎ZUmЌfjv:gtEQ+oac+FQdeo*)ɵǕ۶fūL9< ^CNm9tv}"}j,TBzX9b41>jd2F%~bp߉ [ƒYpW$w"sA Ekpߠۣ2a2vaȩZdH%$d}\! hi ]Yo$>Mrn}Ő0Tt匬 ~ӳTy} *{fks>򱛂0)9gCLraf){ 4EŝHfR=dY05Z]EщpP8kN1>C&Xd(F̞m n W(m!aBhӼu ;R}c9['.1x";XL0&OsW6xӶ, τ_ k^QcMPj'&.[GXLui6u7|A'ŋy+Է0 *~سe$K)Мmu&{dڦ,گutB 20]S7A,4ٸҜgbT >L Ysk`ݚ+Kր'.1!)l4 +Tj?G iZ1<\,jnoBvL:f)c8ZaH7ƿ{̀ (׼hJ2b8'Sf8ޯW}"<5״9oXV畩(6mEI磻.Ilm?{"I#d {iIIy]h1GVظ 89\?Za?-5-Wr`.p}"!+h %źR6حy78K7Nz Gd_z9IJ:LW_w Zc ]r/=/wo.ϼUt[Z7E϶׭,dQKdH5a*>U~˸W +͒Lj'2/'+S É:ۧYcTYd4oL!0lӾ >x2#7tE H#0 XdH]*s:ZH̏ o^YJF\jɟdHH:Op4}J<ԃ rwPL)s> w&]Ć1#*KsTvx_ڳG9^ay?neS>p~v~X,xΔ6W^rm,mvIHO"ߴ )*\5zy{%[&?zGJ6Pp"Kz[ 4SbȦBIqHE1yb$m dz 'ywp/,Ob[~ lM$Me;x w[ Uݶ=ދe8_ hmuEkq#%kNѸ }.5 ~/o6'zn۬ڛ/ d̬.t7sW<)pS:_}Qs[)Lvp.p~x)q -p6eQ91T9mÉX摔c߸PG"Oh/KBfGL Jr q5`>u׵^MPZ Qǩ:&)K!BMjEǍYqZexH4/gH)gzӢH|IP[feHc6Y*8jptw&T'<!zExImOa Rrf|)ƣwk@x\;ARg*ovjP{䜺[[Q c/O NJniv%gpA\YǗT_SWŞ_Rx!d0,=ExtrP0!1iJdnXΐ)$Hb|sP`ŚuoszQأUҪkpUqZ_24Ag w粣}Ij[MgG~ԕOaK DJ|2~B &&, a HH?f^ʬZ&H;WF<Ҷ\=M(.Tx'(SUvU4?9RJf ?οJ1FmKM ;yP۴瓌yq17Y{5ƌm{^ ~ڒ >?̵e.R~_:x,UȴMn.{)ZbveLv [ BϚQ, r_*N  y4i$"e9G6gΩ|ȡz_|H/]ICu+)Ŕ$q⏨^u V rI)urR-Y2+bC]-qeC>j|%+`k_PaFVĶ;Jsت{ :?v5"p#@j38bvX?19~2k?L^4F]+@{754/hѐ/I0dm|6 G!(vvN.ZQ!EA¼"h#¾.@Jk4rŴBWO #sL/LSPۦ17Oek I{SKIT C4'Ňy1wpjiLW)tΓi{;iUD9!ON S{u%/G/†W}nD_: TjqPmryWm _GR 528_tяR09&& c.^n^ ! 8Q֌GLҪ9ݶ'9T](< 3>$G7F믣U]Ne+<+ڥ/2dV2Z6{P$M !ߵv0n('9qNY)0 gP/ [푟g~\ƫY{Zp #6oy$*)~TaEb|2Ҧ'r9Q'IQ<2?ɯyxލ{s`cqrY=nuNoBsaFvuO x!Xh60nn--`'߱ 'd2 x*~7yĊyұ^q[9bs=K%yD9OC`D<7pj A 5 D0(**8% 0v5DB3q3IȤ,ɸ,J.mup\Pmq__a6OZ˼ +dy)hWN#g~ 78mRUmh2WserGi"X2_WaR$428oW]D?DAÒfl<^ ipڱ_"KXW@JzKGϹZ._-@+/kiG<=#l=xPziE&7Eù%@g䗟yㄍQ1wc "5"mh\Z׍-r2+1lLœPypevחu]<_g~T(i'l9r,B әbV<-{1XO18+9::ZŏaxǠ48|֠}/yܴFO#8Ji t/®o~Ҩ,edۼ˗p=R4zhfB5[F?p4a!"'6ق ԧ7RI=E7Y?* w YK ] -DB]4X'vs~ґieA8y;pI3wp~5: @.! ƐmM-|[Y $2bp';do0RRTƄ3fǞU75+Fiu|ʫi}EXxUr+xMQD>%/W~*>,o7t,'&Aa,d+ 4\*Ur.`YE(IO9aS;Vq+^_^G>Z93qm1XA_u~"b/4 d׹֪{2np:'N}<2/ob#=DIL//oDT)?Kz``5gO¨g_t}VIA%a ws{ŶZ9ŶK§ePTbj-/;2;-Je0O)Żÿ*ԇFLvdR0;CzI}Ά! M-_co0=[)A |b ݉_ 1XsN wCYR.\X{mVBk055b*O=<}ƞJp22)QHbǃߟ]N1# bzk#E 1`+=I-, |h{!yg1&xI9OagV,\[]JɫfQ6$+ {*73B͒]>Ѩfʵ] XNΫptrregٱgAEk@!%ʯi u7PfK8]8N2hq_}S@2+RHPqxMsuKQ2''63: ~ToyXr +&uyK͚/1cy؞/7 OS[zdt:bqd"re9LU%~{+J%p81~pt- a1/5N8t82ZTZWmg> ̀}F`W^ #tnH8=zw+`+pF֕]hF{užR~R%σZ 6P}?4D`it%{D C+cOe- A[>6.,#Oi0z]_9N wyI|[\I~@Uʁ%t-n?dӯl{הGx9`÷6[KNj9rp{2fK|]:5 5phVQZZQuY Ś /_bSYwƜ 7k݌$®qT /_rWSq>~#wbw4/nYr+9ٙt.qӲd5ꆽ9~h*`utI"E[kgl1[Vԍ"sq~H͵~2!PoT+z Ί\sL'8Sݒ}쳤}jJ(g{‘c^=Gt GYٝ@gmSq b|>T9&͘|3ɞ"-"*h{4ڦ䨻n\10N l m;kSXoiߘVÕoVUA7@`2^io$G2ѳhwݿ*9 =ކ `y,ٽ+Q)Vw΃\{Yft3 pADp;2R}ʱ7PKg" KRrH-{Fkp>\ZqW#qpS]OZndaKk\.%|\W*zgD?_vlߟjQXt̠y킛^}K+csLgUn(.ڡf)bńph:BPbkĥ_! G횽oNcCymd+v_ ǣzkkaGEŝ)PA[ 3! [905<~qc 9=/8 \S׭&7n.^ z>ėT(Bߪqb# O̝G%=.NbE oiDK{D I w"{O\ B/2ߓo/}F8:q^f ¬w~|W3Ɯ8CX!~ 5A~EDJr&X3!ZE!5Kh!}w+,| {qA]?2+߅>_zdny?-F&rHEpxVtOkdە<*Fij;$}9N{D׊HR.A|8[RQ&TrN`/HW,)y3 C1-~ 8xqh›1d̢$|P-Y&b.~:ӏ+[!S \H-xULt:N{[?pߏde eg+̳֕ _!ѭp曀#OW&j)kFu|/M=y3wl*/@|Yy onu_U,wf\7H 'e&Mx,!@K/%bN |Ē[Nj_fcz.ޙa Nd&CC8-)g dXx<GrzZ;μ]|Wmh@9.BSN RDQ4\'T\ 1vWHUiXQmGAC1 g;KivEDHiݵyd1ؓ,])'4xlMm}!> a{\`\芕g?lZ 7N"Rp 0$zxxa7Cct5Mrez)؇~2gKeܜ$N >][0V9R"VXi lU),]BP%rOmg_ BYlFӪҔ'<{SWsJ>1U Ui0붛qTmss fx2#_3YYP})A-@ߢMbc^! Ip[=9lVV曒InkNO,ľJ!^ĨXS'c Jb_ȸ8J{#o]pdqw p ٸm= ͖߹bʤ~_~amkZ%p,l1; <1oyәb 0 endstream endobj 178 0 obj << /Length1 1442 /Length2 6368 /Length3 0 /Length 7330 /Filter /FlateDecode >> stream xڍVuXDБңAj[Z0bHK 4"tIJHIw HI7}um9><ɪg(h|SC" iDA a'OiC(awO⎅j#@,.  _@$ZSAܱZy@t B@m q"pϿJ:!.nHuU^ psUyOa}Gn}z q),=*`m'i=c rqBu۬9 ]%ѻGh*9%N8))X(U܂1w%@a !_ЀLC@nve{#&5VIheLGs]^Gd` q$kkms*2l<} fJKG89ԈmP^9EoHɚ/_ 9~V4z[۱{>Vk骇'Py~Ӹ|tڭaax۠j =U+?'¥TPEY!WY|rNz;i`vL =CB7۳[F܈ ϣ]82~kkΡ3kUuSW7mDvQ'MDh.z.[6'TsU׾kMo~O+Vj1/FD1M X3zIʺp(S'EΤuIfX ͅW50kZ~bUBFe@auIbӁDBF[6kv@CbC\:8?c-.tj>'3}Wl~RzD4r+eqgG ppšsĽhg?,fI说BQ5m2]C{=V4tS4Ub]g?c!))m#==ߤh}/2(mGHo[0@]߬~GPbҊ/T!hzm%SxF;Y8 h"rM{ذغݗjdxV>~]kZ)Q#ꦧm'5RULΈM6`xcIxZ:yL\ GRp^i͕zt4]^9*\7ٟ3,潠3pX =ai6 ]~A",îFkPiOm9ݜ67]uL)N'1hgyCؙwϝlO-r1@;a `f6SizAY18Tt'YP3D{]QYo;pdD|KwzrZP*wmP*K^w-7(^A(Z ':}h~h5f.>r}pVqR%"v؇ ('AUqۺP1w )Z0gpHzBP <[ .uk wIa}\%wc[sb)VDC؝qo[<=Y\4-CC9G5׹&hOwS-a tu^,k$WC]QyB@@P^x] ؅ }! {w<)Yld}GVr["W(۽8?FT 8W{i,ړ6jiβ'.0Mf<ĞLDTEEjIz&n yл1|խJ i5.sڼޣ}HRW5bvL>${/8p$"I&]å}jpҫ#U+Ͷ=zJ.CYAYl|:5-֣Rw9 ;b~ŻC8IOKKLC;C*FhAbzV;B%"W<_~W7m.Dh]`VzJow37o1C=q:Je=) z"$ge}9'D6aK/{+8qZ]"MP5k~x\{Im؆y_,"&#hd$nUnʫ/{s炣ZkC-><AUB6.TpKO8WalRt"QaI#w{! glH1-Q<8X-cKv!3bX2wv.פ'U}ZEڃv<&{()s|}k-zCƜt)F:勓6-t2 my8Gc#gz}j,LwX$ X*'s6#![enq̬ *r.>bͻڊ^!mj?Hd&J>Nԇ)D||Jl{vyꀱȧ}+Nï|~e^q1ϻ]{T#nم+MMs `y';t?-u@ 9y,?xJeӥIsQEdS]s?ht<_rsw2WzQ4=)Wvu% IwW۞Hɵ= ǔ. ZxQ3td*'^82<<=ɐ78oXc"}Ƣ';$] 9̫&\/ )26UNKs)[se&JfÎaw}-u6BwM_P.ԴGd@`ތ]*JE'I^k1Et$n ԅPQ$5 D|%K V&vN,1*?;$m17v=lt/vԼ벦qS^&mwun<-Ĩk(u-2ͤrWꢗqRp+lQO[(r N~gU$ULz b$%mܖFdAƲwmP5qf1{>][SkK`k k&Ĭ˨u{҇է+s/5׀<| Fܢ~[XM 7HI(٧'oM6^8wi0wZū4e$>)M ,Eg+ͿW/֐;|iY2*j!kR zC'W(Ǯ/&2|̓@T7-oLc@z~}蝋 f^?8ӧK!1+<=t#H@6j=j:TPe+h;nG3y|4 EI?5$ENZ ?oÊQδVoE{&"86CE.լYlQ OMͩs ~r{s98Sz;msArΣ>ɮgrQ[c֗ǟa᳷L~H 7{qhu5  ܙLJSM,ԽX$&|"BqkpeV8/{  :^}:N{>rI74 8^sbNY$[HSڻ ʢ8:Yэui?Iɭy=zL %P>'}iU WQSƛeD/;h'V@!BN*[81MZnG+k]I_WM.mc'Pbнq׮wR-kKll+ZD^qdwQ[VVQ3ׇȬ&LOvu% Oa~xOBh!O-T8%BzL8 ES;|хVAwo$dQ<Ê20r$nYXVKU67|[Yg̿[)ђ}Yo\>qԸ:"˂@=|4t}ZT\k { /Z"@Fݒ3C]Ίt,%Lɧ&{YGOxen{%%*_tu}*zkAǑW? "]oBOi8.h3hn,T1rvW%TgN0*7Wv)si'7 L8Gnz.晟ȎAVp&S7 %Gc"xl/>*&DpW]7C_ ~`Z')?ihhyè*Jҍڢ>e5`8gA|R:9QHm#vep~ m҂W4HYBUqGV>CvmƗ7Iwjgr6I!qr袜Q4Xk;ۤ:|IV$>C5jEM4fwl%mDD(hS2sU!!o"Jϲ^bnIzQ#bygƄyr #b ]_u5¤w6F a4q<%VɂѭI.kZL]h]T[6|oImda,)~jR^> stream xڍVTmKc`!f`Zi$i $W׺wZ3s><ĻNGKf VA\@n^1 ˇdA0T y8)wDM Bb@a1^^/D\ 4j0(I8:!`cEE9dp !nw@}WV ']LJ ;Jq| ' ~Jhq0 0\!v`睋 ej?8r g 3A+Ep@PD' l(@w Cܞןy~+"^"Rc?2|t(CK_9Ʌ;eQS5Bǹ ,BK' ms')1\XGg矈?U{́_`—t9XiIHiFAzFa9@n+Ct@YR]eisP3Arm\9w܀\7m HYӫ2OP2_} ~:mKH6} DŽyHf``Щ#yc[jGa 5axʫzHTg[a ęF6dWkhr1[Wȅ$5a⊿X& 鐪7ȗ~ Tޜgl( ?NOçb}YN%-O7,%> j>꾤]yJB+1C#-pRo(e=M2Ú*ӫ sW~=u,n-tˇG%v1~މWݻNjfcTY-D|z"uQݓOnAX)JIm|l.8rG`f'ay^.[U*B92`ͮCynՐv@=8_ug~J*KC*G9Y+ڤƕ" Cf/#S/+_~(sM=Hn},Բw^ٷܜ+6c#'Sfۀ*:-]-@]mbKu8˱5[/ tPV4SBϯg) :dQmy֋ 603ץzbG+VѲSfwګ0H;aGzށ!$.\P_5XE[ 4zұeK@µчB9 %U<)X\R{#INEЂa-L5'rx#oYE]E =Mѽ9"q]_bcb]Ԏ&MYSCsAbPEglWʱݰ F .V+^nC\S;\ɬ Ἴʎ\1IC3|)Y$}U /#&LL,.n 1کLEiP|ΔN0鷘DyM/S=4_9%0ǃNyFV-63f=C0[g2Z*dURl>|] }Q Yw17utfͼo 4{/(;,CR(xNv<`fv鶞mjRL-Og4ewk{u =:jbtDBh$y.Z q 's:QWV|b=JAJi2M qC ޽{ΖHGً]t:cg;ᆊC8XVHpC3ozs>ԙ+s`s<CQV?K Ylnuv6I7鐲tmS\K0sH\l\XӆC$KA/):m7u YZsCҕaEr2w2'|ZeK*X ;pd krA5\ӝ$2JRÂ>뎞U>v֊f;ߌ(0P]NO|n"ީʖ4&f4׽.|;"kt~>`oyhhl%v?b[/\~Iyi-kX?˟<o@nlIeZ:w;0+}bCdܕ.OW%[4۵@#t ˅7EP*D[wǡB_cRKXXב4P` [ld=c }.$Z@t$>B_(x$Q:0*c-OcL rp `([>zu5nggFa|88 J"Dߗj{XH,$^|(E֏pJuk e,~H%VˮG09l4+j$xh9jM oؖFou1e4:6l|k#=2c9r"O= 㱍Y A#Jj4X]Ϧ|!%u!fJql (xJQ%}-cEùtӕQZewcn\V~QB2 {'^iC%t hz<5GlGvLVIUJ l1$H?F+\mFa`n\ߤ;KN˷qJ55Z1$s 7%qd̈́,uQ$C~TJOHaD4yʀB}Eueuus!Ѻ6bJhtEADяV'&o39!iICno:sw%"MJCtr+*(c6PF,U։]1.rٷӂrC m;YX*y{b>p*NҮ.+%W/{`bs>8 Vˤe͒Z:}Bwso\ci8L(ӂb7x4h _Ie@dQ_xrP1 k,şv fqR~! {a&VbaIV^.'RBǵ̣m3. R=;9`!LPd`162m+P]٥9]AX N PغawA7Ǹul^DnN- x_r[]S_.RUffL݄+- ?mʶqYeR]C-n梽() үkL_'}*16q%NƯ (sNsLu#izQ~cV/(M{ Ky`D3D #=<ec@k#ޞAZTVQ9]o%Ӧ>%QVh^Sw9f΃ xI, Jﯴnb 'K0 ̜lr6K^Z7 `s^{咹Pdm<;{Tr['J>v-pO]7@>]w5Ě (,ߵף8 ~pZhxd|A8Qq[(vz>P!ni HgAcNr&赘 Qnt_J+""N0a?TАu۾`ׂO=b`ςeԎ(oၠn,:}Fr?E]|"qԕ:9 X RpB4!>? :tׁt 1`HLy\̌Is5F m*eK8FM~2_$[:}[]F,{ٔ-'#sm] F/ jjfP٥CCTMƙ<mb拧Wfm@%$RJ=ٟy~{`ցZ踙ojjލǗ1sQ8 6R tFA3E/\&gV#;! %i?s-"'va_g8AU_c% jgZdu.'y|/pݸRdq]q dg}c'WDݷjǑ9^;+.{(\XrJ嚇 hr.:ץal޻6bcVGg*;G5.M%:\DVYڳۄbgmijՓ.CES7Vb@1k`#H?8ZvYivKpWMaf>z*`ĥ/cZaVO?C&-'EQWܮl Vz6~\$6ItkOge͗?u$2і4QTaAubQoBq@o\z`2qdZznjt~蘻>zS":($= 䧶cg3ރ#:1MY~~z~ƾFF`>y`A˪ qȥRTE6GY WNl&<]T}g3j=A=U5kmrB QeY^'bǦ7Zzvv{C'teUP1xC5]{Pmϑq\]( 쁏'S@g &q CI:+G] w3]1i)~9ɏCzp0|qP59O:VWNאա<+0=\Ƚ䙵C lڧKzN{f=nui}/wr#och*KqQ;f+4"W2oDԼ_^5THz2vP`_qX(tԏ#kgZ^0,M@񉤪zHd)1QqEָlbԦ/U(W%Nɒ? H74ޯ{ + [=q=E[oW Y'\_-S; ?cftlaT"nff endstream endobj 182 0 obj << /Length1 1695 /Length2 9772 /Length3 0 /Length 10874 /Filter /FlateDecode >> stream xڍP.k┠Cqע Piw^xqHΥsL>^RYEf : 2l  ҪC!i5!P-X;@NO2 ӓ l `q ߆0>j P`l!0;wS& 6^7Dm P-@dyhL' A/`dmYaB W@qp~ P@jnuS3sr;@Ok xP(Al4ӀX @P?&&0;;`Yܜ`[߆`kGؓ? ?Q: %?uW&P;'GVG<8b> ݁ j72ښna wHe$BWfqpxpp wuw;J=`v6 P3#prpx{:j0Cm$u肞0S6_-hOT5?=/dJo'o6qvpx{4!1AZV\Ul %]i:JNŨKIX+_e,ϞznPԺs^PHSy$j N<MԼWuuXW:B7A-mid?UԷΈ^g| ؈ KTLhFq^X!u: v‘ D\Ƽ,pO4~'o[pUxbyOI(,59"XCVvBFbCP쥣fw2TklJ6$H}~{|Y.QFw/Y!FtwmkY0BMI&4=o> )-v]$uEf_m.Фr L`ݏ~< O·Ӷ61y(H՚E7Gl&U6k^nk6<2Y0>EF^{x`ksUFOROpY%7g~#}8tBț}}"]rK~͉vs^ 9_B͉J6{U&F6lM\^ ֘Bܦ7 *1#[DWϚ2#&H H?0'%9MĤm3x4~<#]B?Ѣ8 FجOOZI9*E34F*~):>?F]HՉl9b|W`^͸)MefU`U'Ddw\ /ɂX!(7Ğٌ|;cKj项{czNnaDJׂ63|ON V1UAqLʱP*c(P2m <$v2KO@X~=u27?<|۬R-fς<'B;:y7Wo.V7kճU]S&C^BЁ'ha;dDށY!NTo|OWn;p*yT' qk- Zi;HoZfVV@ޟMxZp ㆣJ@TL1{PSqU:aTP~j?&QrTer&ۆgBw_aスdx_ns}$k}}ӹTq7dz4є!D7tP s 2 X*Vf7.8OG/TX0vJUy} sū#Q`f wf-'̤`BtvS?!r{ 5+ FD,  ;|@'Vb1}ևB1{:Q}Hn.x޾R,4TuV*N5=Ve8Vj-ES'BTUР3IGg]%r ?Hji6<+B0SBZQY| ZƔUp?:Qx]7ͯeE^G]ON a%Uo5vouiۉF_c(bZ8,bKPM䷤XNOvZM.ȋ?.7&G(h=kfE^]/- aY0өr},?Lt˩VkMBsc%n'~ub K8lT勛8k&økF,K1@;־^]e$}nti2Ou*\9Չ彁B\V?.U\p݅R2gk+ G*o)\LC_ c]n=8kI՝.dzAs2uA 28@;/oT%AV9[g;e.Q 6"/sB w:!MΤ+~30GTѩwkz y1/YGpu؈L0~R لd20U)kM ~ U# 81*PR3-m8@*^S~]Kwt#k %Rt7HSccC}F֧e[a%!@㹂Vq<ʲjv_сyp!jNlu=KF_S2d %NB%1՜^ip_raK&׿U' 8H3sfOͪI[.FE:k XauXFD|u*[ĂXzs'ϣ5aC92MX1<0F1s,[ҌQ6gnzYWJs,}gJX= U˗/rm"D sE_ovkEeQLI"EuD a<^;dڦOCl"?J^ 1(`UE1q4 r{Ot.вbC _} fQB卣Y\mNw=_+6X{Ԑ$Nɽfrn{m}Ծ$$V.뷪KZ)ϱ4iїϪf/삧NefQ`+l`a_,~2+V^.HvVh%GA?dr R *z`Qj,;`4VbnGe@ o(>}C72 '" VOWu^񚄱R?Erd+(Ex}k=M䧜=GwWCO߼ƵfiCA9Âے"qG5y|Byᥚ)mvY~)z89{ʈvl7ul"$flHb)Hv$ZF,[52Mi_>0O:?8G*ytih<|NʼY%lb-tk'f/jn6|Sλ<,8}$G .[)eqLF3(>|}^$2gSm'H{ѵ~K;(Q->Oc+€Nwݧ;EoޚhJJʇu-&Ks&;f2Rʿ3;Zhs$6,¶Y ,=XQW=cyvʭhyEp>Y\्7 Ų"v*>%Yۗѳ/'+BHv@5? &.aD%`1RQ{[zޖ#MMa: qУaGѝqh|.@cD0r]bj>19>'~!wamU`,bt:̯i>\A8Wˎw9MȌx;I6qI\nAݰ~q nG1{иY- Q%2@&u>My7,jt3t{4M)*D{Zsjo7Ki=@)`⊜rzK'’ԿTm'.֬2bDԲnd1ϤH{3MhK0%9)]_}3!EfGFb=.@UN)hM҇oj4{癀u|Zfv|VB %% .LÙD\;V!uq1˕Gh {[YXe8DEEZ'Ϟ!t$I00Oϙ I^8*6,XMs%j;$H 0Ҳ{e:!j C%%wNӡIY ᗍ }|J†yDè MJ[RW 5Z2:F84(&4Qחr9藭4IMrk-gW $>\*oU-WeŽHb4F J$v/\q -Ԙ"bK |0vezc^H9{zJ.AqSuDQ01'[_Jyj(f`gZCPgZ-L'Hr5-w3H?CK,Nct{ZŹuBa!r(/Dn9x>6G_A^f؜R5E6&saHBSA/)vR yY%CiD˲%mo1Wc_wfav껴='[,YBy7h?عB-ZvdX;Ts.g~%ߡ\rr,+TBQ2 J)X}6ga6`džeZ} ׳+hV+QO-8t{Rk}Ӎ>#+[NQԹXx;hE>5g%.l]pTJ B Z|0F[@?|0Y). _ ]fN;reF2V$. !c5*#ƫzY!+_A죾q=bU4.ݰyw뽬0>×VlL9^ ^EQȗlx^Hr'' \ּHp۩|ڱ!g_> '_+K!/ie.tV8fk| ÕTޕE`]{fjYkIVڢN .ر赐"XYF*#03u񿚏VH1qQ#}U?V~GxDwְWzʑ)143鹿nӣѡSo5t}:>pyWwޠ-)=1+;1D!~]\.MQGik ]B"˹h-93u:s8E|l)-52ZglΓ-Z;y^Ui3(q?>v~UDSO@/!}N0Ori[ Y@\Kʭ#v Yj:)Y8"<6@r[a/1{UL᳿"IIBX~"'.*zϧgtZ=.FSa,*P[R rk cNy𣮸Ic"^s;+ aSnt'A+Z2\<.B!qQOlv^ۭ8޲^&\ v|oyΰd9 ;q+E WrˁQՖ%=C4_G0E(%prI$hI{Q7^|17ÍBhrV|`8UF9Sjs޸6vU]T=҈GػI=b|n69Ir@ ^ l@ZLs|?$^cD_.N b=<ݻ be?J T ObB$z#n;U 骖/ kfR⯅jFl1;azHxA4PnbZP,H&l69a[ؒCWM Ga)Gh,iHB\MI3s8vd{/^ICP9Ro1n}xEsNtc" O"DzQ8$_IW|yu `2)+ WEWp d$|WxSũ!=ù=踢lق4{NY'hsQ)C##^_E%a%;$6z q7Vn 73K1,] C?_(+}:3@q/ff?ե[0[%HQZ P _mcz`M%gE%Gtҵ|Aj;#G hKoi ^Qٷ.Oꬃ h5Jf|{]~b}|‘eR VIO;uHr%}@P*jvpע^\$!ICdJ1r ά\e'uww T=vQk,fs`e9>S f94xdt.k* U[h/A)TrBY 1UC"oܰ|-NS µLj[_nt?O Vv ӜU ӛ4V4xƜq ByR:=H۶-[h4FɱX@XXft̩:K?]sdUlG%L^?}aqx`HIN3s6𛡙A*ѥ*^aڸ^]my_.rKL;xHž'ߡA#hЬԺ^fm?+DY7,Vx_GMF07|P$aAIA1"~JtUA%c0XD6Z'f+n_4 |d`.$Ί"&HC$:k6DXif3e#YŅrleO=>&o:F@ҜB0r #tRr0WzZ3/Ի-ҭa(7_T*Fdlwѩ6t4RK.y.cȾn?ZӊO6n(R/ dp2r`M<{xN ۤsUxupm> ʱF-KQzKDV)_uZ d{o}#[kLD&KSZFyi,3oFGiy?*껴w.1&E G4ͬC̦_PC(8KxT.SZ#=~pgxJ22M2E\66i_ŰO`V"p {af 0kF:ՖX nAKm:w+2=uhƪ|>T:zzmV 8]zeޏYEI5.ށ ]u ]k$.ފ).g5@⻦tJ<1EVSeC6uFK 3Ѯ8ݝpe0} t-$ #{ǴPm p˔>S>4fW똖-, yuJ,T1_J #(öOgg.`Mj2s\tcůMDJ""!"s>) JW%^ʲ^gv}Y :^WƥaADCh%z* ǘo{#q^'> stream xڍtTk.H0tPRJwI 3 -%  R!""{9kfw빯aez+c)^XP`A>0XUAR\pR9ȹ Niq=q0vDPw 041ngpXs1{<'+4{5袬0׿RpHc0|P'4':04f hB`zp.uXn CnH+-誨Z0g?<_w@ IWDp`5#[8h)a<1<i@Pw(: (hP,࡭]4W-+ mPNN0$M?y+{^&Dy }lH_ lܜp7_.X?:;`.ڞWz=/go# bA|00n0_mD 6pk `#ɎUl=G`, ?'3,lPH?˯mll(OW@ |?7ڇP_́ɨE,A`oo 㯝]B%3 `a5ހ!77@6sfn^hہoWC؟]րݜ۪bCi8/D,GG+=a6k?L{8zrQ`ٰkg}V؉1A/ݲFZGa "+ ><C0E/#~"kUo`[ `0kIDCMHI I#E愘NQDYrřCIԁj:/#޻vw'/'3O7Le/uyMJ$ecשJtۭ2{MͭeYTb_u0ozքӰ.;ĘFif0I6'zT-v̑w0E}c Ð+H T-uΠRgҡ!+H~KcD`iDMC s=* TP=X4-w9.Fr^Q'Tx( b*zp#G}~hJk^><$e~5%HgNg~zs=p,z_\D=m˒уZ)/:{n[[n <,_a=}4+l S2ᢳe>UQ ~7 _0&cc,}w8 g [LR ;卜}qڕ *y9`Ȇo$zȀCNG#i[Z,_ʑ n` ݌?:/ք=dVk$0 +>?,s^PT7XMojrzDg(t}1ppeoo`9Q=Z)/pq:aJߨԒfv@ ^/橜=+P8'!rB zY h+Ÿ,ri!jOE8o$eq:>-A=@Vӕ Ԕ}Iw[o&yhU is| C _q_b#"V`5V{hM9cU}ѩg<ݠ:}_1)bpV7rE0=쒚s<}E֡ϊ;{̿QXbHε?LzW ҦN)ߪ< yC}0%#9tW'5e]"&5 DY3.3gR7 qL^G8Hk1F7^KQLNq\'9E;vP8͏`ŠaYR+V2?Fm:۽8 ,UmBΒK.B[ix(ViXU7>)L| L>~w}5BD~R} Ɲ-\f+@kT˂p~$_T$ẘ'4D#T, cswq?s]蓃i>-\jX_h y11E>nSAoL=84Bwc\*2"I^51mdZTeͲ*rWW{Ĉ.gH-Z#R$WU.azf*|ztY+Al.-D,jy7nD#{Ψ|;ˬz֮~Gr*:4 Qu}F6D*SD&%,Lyx9Ed[vZnt2~|wB0qGO{ӑ&ACy gl0Ef!ŞQ&_.NPZ(:>_QA>>Ek@QmhEyNg[o[dZÜheTk~w4 ?2дyK& m2m}/[gVb9G{3HZms{lϙ;TLev3r&_I}%_谓I7p_^q6ֽؕ/MK}amYsn+ ,R2#Ӆ#D{˙k-SXHxUwD]̗ON'SN5'H/heIg$j픫xWlB~"ٷU*gkƺaHMՠTăON3onx|HȳM[T;_¬ ',>agaլC`3`қ|gqYᒱ$%jB*&UEQ_2 v(scm xSϡtft\/ߪL; 'mnޜzY^iN hH#rAU彦GE^u5@:EU E$ԋno?8_Y5t-Ը`SvM|/D WzsNJ|0UR5UݷtL;lmXڽ;řin(l4N@ awr O>i)dAHM[qe\Z(EER{!֖}`.dtg 9;Ұ(ξSs0Cs3% wNL!Y!ZF:;PԱ*\+Ϩtf1C`-hl4F\}4dL3xWBzqul4OU(/|kUW nJWA%?k.sӈvDybs(mkYn^7qĩ {uvhqgpBNMދ]7#"H+l@RRA:غ_E^-&fd2}&[tJrTE ֏}jy.9(]ŠV1Q'|țBIoe|i0r& h.c&9s-m\+_KG="GY{ }-斮I7gˑJoQѧ`!^9pVџ!omQ<4Jꄄ?F3'5\[p.mhRkg Z_$Q*j;=ټ3urc' 5{RHaVytҋt K?̹zO 8HNtjZKDri:sv({'YsΔAWGqv2Po+ʾU'QJuhA?u ͆|;43eTMcYͤ.7;$5a8]ܱV2s0G5BٍkĭlfW$^&hu7' }OےEI&OX)Wxy;[ؤ.v }r{ {?9$QiwO>]eOxWLFb>9nWrբ ԗ(󫽉N CahI]@UC78i98[nzasct! =uQ+k-wZ?D\a6|=p1/k~Ɓ"MdER*-o% Wm&]y&Wmpb_lﺼ;NG,*xs*HSO(7Ȋ>_N|U&sOSghU*8t0CxY;QKLk/ pw N#P=92ҠJ0޶= U,I”&rӣ~/?ty.]`*;vvftof0}5ݰY7;Oum6 Z1xyʴV JwYF2LՅ Ro}8= -o'!::JN [K{n5mbsBax;ݦD3ce=GL)S'RwVlɛpM]V@T…8RF, c͹$?\Sn8s>ZG2F2D{xBt#^OG5=4e Ez^\0|p{XcuaǏ 6:Yn|QCKrAmܚdig ]i>zlJ_y䭨.Xz9^?a2#Z_C}nrQzFM?=j3p0}iiϤעz/l:푺@Ƈ)F-nSQOnf%dpPt%CȖJRkBTXߴv@+tߘ6F"εW^%-|iUٳ-`~:o5:J @^[;)wSc(fLcYhIŒj9GЩ=0eӔ;4PA;,Sp7|[_o׍NǍ7\uPQmbؼ*FҴOVs~}ҵ߈!UҮSJ8ck_>+IwyN%X<9{+hk2+$yrgRLwΗ.Ŏ|/ۅ$ _d>]2vd_ Z(ĚXʼp$֕rx:-έ{CA܌[XSV{S8q>g@h Ɨ}J#>x/cܙ'RN.n)_ۑQ|ϖEDF_wMW#ŶnVwĦP౎]o` wBC 흴_̞ tEvxgGkh\dڇt|>QfD&!X &e,%7~~? 4?yC`N菏FIs푔,oOЀ+OH `ZOW|I_QP\>#Tf=#7ae*k)wCo᭏8羈ZDKqyˎ1 Z|>Իn1AÂv@8`-RzWZ1_Jeb spI~z-DL9HZⰡևP ܬlvَlmC%J%jQkCkn-R5v+ >܁)78&dJz+Q@2mIsA$50J9cNtm,p=x(_l9KN=b~U3?] ]~,۝SZ u{*̵9jR<ߍc endstream endobj 186 0 obj << /Length1 2673 /Length2 22456 /Length3 0 /Length 23966 /Filter /FlateDecode >> stream xڌP\[4N,@Bp-wGscιLUI(PRgcr0#PQiz8#Pime 4$<@vJNyO?Cg7~%@ tGpvu#ւq# daty0sh8[=|CA+hlf-L݁n^@K eƌ@дuKlm@'w O'K!Pq:e#ؘDN6pvt1suX:*Ҋ>3'? ܝAͼlAFnS;=w 7[wfw[?RdTe)'K gGG;Iں-@eeNN+['K?taruIm!Y=\<|+ca O%bP..+P@[+  p[_m~@0n>VXd/Kg'ENN_E]ᯌщ;8YL\?_ ܿ圬|*{,h^:=(;f=\/ s߀=TQ9:meOZ(9Ze%yC2ںK-Um=,luD`Tuv0t](^.,-X5owꔈY{KD,g.a1.y>C$`*de%: XUܾ1>aƭf߆CKm^Tׇx5Z`LX9Fd/beL|Pa_v֏5A|[؇UQC75y>tdȈ@mSh{96ƣh =nu?{3IR-*) F,-H p^ۦrO m#՗eH FWqB | mmJ*&WlC"5vu!W5-o%o3Q(q 6V,cY@a͗5"l-,G&jw5Bz"QZ'Ss}dԜ*?GPͥdO!(~3~],n(z ض, `m|څ:*TY87tI1yfZ q0yr0o!ړ=GsW1,e(\)Q5o!jLHX2:5>,|Y9_ _: 5SdT'd4 GUmJc^l Y;)M鳖g:Yکx$sA$Tg--{*^d&wr-_Ͼs AdiN)0(bĕV7nC !]EVaWa[N𱲉)wàh86s?@0:ONeb^y'?Tދ晔9M}1r_7r_xHoB ݦuGHlj''#V\KeC%۹ "v^W2EmB磠6mAq!o׏'dI]zy~'wTUSCޛkF=j9TσcYZə:NNQ6,6E`{b<q](t܁kdMշ0cA;ǦdOXS;\.7캪הל1~ 68x%sQ*5mmֱ(**s$a=s 6Dɥ75̟۵C>::XWwe-OWŭ5Ϧ͎n̷hVK.rVmݚB{GYF>z7w Nc]E|춤Rt( 3|ktwnboXWN?oΝ3E}$$Hcq-u7:!nvWMd2ɤVthBuD hʬ=xdMk`- #4̉fiuz3٣ nV@Ƌ?[舐gHwϳ+ 'at>"Y|24-ˋ1Z:%iuLj *^Շ3X}.v/X:e9,4=LrkūMYC0li'\|.ꨇ\aU+YE= ' 44cn8vm1eh&EdO"&k8&ꃲqLIN*Gs{VHkS:\#*hz/dA2nf' ˧{-̰x +Dz{Ml4lWBE d^'^I?6 NU "G|pxzJ8.2 0:gya,Z6jCg gV`G_~u) `l$M/ ܌n|"cL!Q9#` ;tQEr= W_3.L TTN{Q)Z/ˆY=aCvhnء>+i{Ks55yzj(>&YMHe64oYjR A&Bx1CC s]Un_dʶ +9N 5Pzbȱy4R;C|[ؤ[g<3Oe76@&~"74!F v]|WJm "l92HW` 񏓑]UxY*낙2YDG:8)^ø5P,O:-r8@xW9侼F[wS{?%F&Lh1dH44sw2m**µ7eh6E #nϖ_2]}2m P%XZuG`I?j/,}!U։B' ߶1ƈx/UVS^цH#|=O;byYѕ&ư/Gf 1nϤx<8Hz7s߫jd{g: аNYQQjDbR1byOH] LuTݦiC"-^#? ?'aϽ o*[gXnm_ v&[,тoe=f1N:w*CSwr⑾bSDݨ;TX~gIWEst Ic« Yl*1CuAv'{>9$/S[o/O źR%ih̿6:'{5xP:Hj양*:a,aݤ)Rr{jhXƫV9^r/ 6As{|NR[FqaRpØ̵j&A/\C93@iAT؎NPtG5Jm>-hq-)?E5pD-z_sPl " )E5P:gODFG};dHbHD ΀_IPdY7t,5AsWv'TM,y*o_ݴB}6ô mt;d=@r9MJ 1*S`ږE~SV뒻$?]>W~CZe&XIfCg&ӪYZ&~y&{'F(}&)I ;D=8uh`_9G!BÂ&iy FB=kZM&Le1|&i$zT`-5m_'*qi )ii&x FѫX>8zFhm"X3D.Zщ ܨ0pNڟ؆X8Q"y]ǰF WIsϨfQ倒 {l&?.fYM e[КY7`dn4̮y(hײm܄kx<65:3__ R$O;zT:: pIk=rvF3»^KY7r0F154a%>'RG'"Ic6@} VG^A,nCQwna)c$άNW,wY}!Z,k#tՙV^}?DNOϒPp/r ¥D&+MEZ! vƼIصy}]Ti*Nz-FT.KuYl-Y@7u| e3TC+ZMq1M()zϮIF2}'FL b*hctf. pDz1- s̾u jmI[g  "eVXG q$${C̹&U० :4kot?P3K%̐ BRs5N%墰Qs(^rsJdQSWڙ[f}BGE3-KRω6"7jlZ(d7fҁ i?R'3|_c;? ]J(wikjtޅ72p$C108Kjݮ,H ^I-# %+xNェ~Bw"ԷSwWlr'4~Q] 6^8KqzHgx"'ͻz 2jd|hw,wDŽg>`Tamr4bL>OŢcUhY@$bPTd9Jjz=SQϑŁ6FL.̢wL̈Zm!agv@#A[s= R9r@>qtH1009bw(yƾ&A-%y 6I]4fJp~׋=" ôC68e`sn=V2m}y2e<]]?^N>V9-+%j779%RuKNi}9̴1r%ĚJ-4S!g2<ݐ&Hw1 ׽LTyW=¸[,/aM?H轄"wu-%MFËn$TzN Gceߌppkmi}{1 QZt7aH>Jv .")i ϶m.4NSe|k[m7>FS";6mgv.[ͳJlbKPVS8zH]1y qkc$A+<<} qCR3 S+!P-b{D,ά >It2 s\EwkpV*! ul y$%aȥtflܡbCAeo5p~йaˣVy LxWwAW1c S|ISzyuma&)t뾧ϥW`tRw[S.V>4x)=#B`o>Fk@8}nhp@{pOn-@A/x5uT)]{ϴ 66.A[#XxwWL3W=mw46V#\ZE@R[C>`硩0bxUIcH{"uy,|1]Q/}0f%:4?rHr5Ro90m SPOw ȣR` h&fv!fed4&LVjy q7M pl#Jyq&^ZfЩN$f`ui>0.(:SY;C zB(ȮSvke:C IO3P_YlLV\5yo*lwգw'BY%#ڦ$ܢh,eьbtnJo4WkFU8ꊞWG c0:Q/iEs3)&-iΏsd=BUCehua !"Z)qMh *r^p ڎ#uPOg!A=~#PVm26;#_30>0oP1!;b%&^ȭ~Bdb恾܂uŰh$o:흵\%2b^l)9ҬHgCr0JoMzCDl$9 Ipphzیqv~`O ?$n9`Ftc̸z7*7{ 7fbz| Ԓx3: %q`+UliriMiP%\$G1X$s/ΎL[ϟdZûτ+; ?o"*.K޾>w-e"/=>{dA!aVe>V7P!= Nׁ`3"GhB)v@X]UrSowc%Su!H<<Ύ,n輥mri:+YxDjTy÷M56B*YR_Њ A(HjX= r}0m7#;(;%7* p'Y26,3Zڿp3/n1--6NG~t?q94"u D傴5Jn ^nQwa2)HrcDAxGW9{L~|Rpݽ>*T_NL\ɅXۊweٞƍ q|^r1'JnNfCu,nDgW,(IW\V7221U[QxV#XS3{ݩrž^*A)HۍDe*cbV -mWwcE ]*Z2V+OE^.y&a.!U}bw$쨺#ݒF s,=p*(njvjDp/c6Post9 E#I!°R)RDL}N"G% Yrn{p_3u>%"o5@IrdXx諫zPpѠEK@ϿKL.;H^2I!Jr)DjO2Wq``d걫c6fUj#H|"18;^o9 ?RܢfSDyFHRt|MHJKо5Dq&-}dA `pqLtyDdE @B?1)K=ǀwDY/ 7?Y@Xuac ]q B,a.)/yR:~?қ99݋t!2/]_*},g^P ,iީfb/4,)Upa1jHa7t4I^ސl~UdwL"s&$t_h,wٵҍ@1~R{:@􊍧^"U_x)¦jQH`#POw]?M=źqӴ\Q(xs44?=;לQ` <.B10;M=ݶ{N}1WEj#Z%l&l \|gZ@x]@:&4 Ձ;r؋N Y8EیRL뀔taҞHVDji V.qҭ<]Z btkr o.$^f\K_:΍Ca4z(+r2z)*lĄYP3RWf.32c#`ywBd/$g'>4YåuwX\_q;/U1%G7m;q2hBՎ[crM.ͦoI .4K-}_a66…HM4Ր%jRʐ޷:ᄅB'4<'dˇCv" :H;tL&ޝp1>n~:6t]FóI? .Oy{ˎx+S醜<ğd1U]7e|d͹?˲cm47FR0y܋>u?@OO&: rEW6[U0e)s2ڼkV-)DU:H)5$}µڋYY\j1LI riS3 :~* ;2=JEd Y~ח>3WIvVg&UKj3+վƋzA hJVjԯ9F,P~8fN Hg IA~ChԳ H%#%'1e6ʄv.YUCI75 VU1De-&S'$!.+H U3X]SD/<56![KM}vIAǑLQ<̥ʥV P5dȵ.^;&սN!3FܝW+j?1Ud;5%q븇Q~ώ4]1 ӭ@M]7N}gp'G4&xa'"-*ak!菬k;Fj6勢ڌF&{yp'Ywz]G_?d\X?$7p2I$;2|zR~9sѓ<2M|٭+i2oFж:mT1D;1-hhq(Ur\f)=Y`H5+gޑ| UCA'VQݶL2Ռw+Y}rL z<_-Ng9gS/!؍tdwle%#*#NcKq*:7aZ zq8TGZ4nZ < 62Hh~j/nL,ZxDǐXp!hpXm(j:·pyLe_nwH K:mcQuni5=CPIY\kӷ0Ec*Oط%z28$+@yTUi @RF݃if8@=D}MMG&'*R>Q"]|WJ_X*-w#(hBqgF8?nw ؙlA@׭~p1ż;-h f!}KEowI@/W`;}&'pk10C)~sAҀ`lU{,A6Xt=މQ7{k`ݯr9IBcd(.>^~ \ĭ#cZbj<$vrtl9UQ*l;}mC&foe5h?6% `,505Q]K KӨn D垮"پQ3'll]ALjrei֖[6铕dEl?._]+No؉1!;$nP-Awr'Xhah Dx psFa$1.I[5kH9G.m}78ǰ[EC4:;{BJ9: _?eC̗ 4lirx3}lSijP".>Ɔ%>ߪ"^cS&:`=i|D3W^ڊ"~0d2U 2I} ^lE.CJKd_,)wyj¸!!">[|NBݼ } da|&Ɍ]h0C*VKH3xBΡqN#[h!V,+,=ZPMQT)ϔ0C%ԔvKn_Z3 }\(~3‰yАwqgK̴J*A,n#Dꢲ~lvtU{[>ج!$OL\ -ZO{ "R;ͷ Q,eUMÙerVmp4ۈͣF]f>{Ծ/>c;e3!`֪+Z#V0:\״ۣe)[ 4` bo#R EBu, ?ldwrfTF ˢل5rʯ̴?\/WL4ܚB0IL ak5n,~k9ECǙtd9B'Ifqb <3 П=њW̬֏jbC%]~%@c(n@,ƴP}@kEN) m 4A?.4j+'25aD|N|J(+Jfg&5q`osg:殰"Xš˗Hk#/P)*G(ƟVKeK4BBK0.f> C27ƏjWyK`\FvIF|K %CS#84]`X`p :34;p\(7ExpXBh`0c>dٴ v}B94ǵݜIGXCv՞au&q&΂E}1:Lz Ň%_ôRE3_i{F{NnjzӠ|_ķMz2SqrD:^.T4r>\~`QdYSr͸Mwirp;̏gwKY`ޚ0sQ pHM=̜~\h 4\#)@u;.@uq?yr^֦qPux3X&!55,L+ lZ=+f<:cQ7"vDwQ=Z"R\>FR%#AB?/ȉ@;$JA60)z)J9 cf\NqޅR6;+<* (I)>B#$ǟwS~aw` XRA=lA iث]rntV$L`< V)'TkpH!s~ tC} m҇aI'ޒ^zC>%o {m7Jo8;M!".p/dnտUXZ[7\fU#RWL! tۍ&4[4 UMKYV Џ|{eQ5)Ps_MIljjx9Pm_evY+'pDiPH}qn戹O8&'<q { n8qlR5n]&uv]1ceZ?p~ݰ3C+"Q쮘lyAI (G_Q[ ܹɳT6FxJf%ԱZ?q3!*3҅P&pZl \ݹyozPA_HͭTw/"OO呼S9kVV\xu .&"1wLɸO3F'qTo%b9]*D)(6ᴓnDhǠzr7{1=]]vдYճonXVRwE}e5FlGO`'ukLf~ɑB")T1@x, IO#Q)bJND.c 𔥎m 3K-* _bWtM꣺X> 5 8mk ?3s1-館*},aҙ201x&Zk|A8TE-9kDq pw ܸLxj^ㄾ-֤9γnCha?(?m8]P ^IH6F9;{KD<ߎWck_As@;96GlAWH!K-L_OpQZUdmd\<.\tMMF[IDjg bNK$y s`!=Th1n~4Dj H.`yM*g.]KBK`-xA,AUuƦ{kS:|AO۾%\C 3:h娝0 'c!y<ކ'⍱b~0q2G~5hK>EJ"je61=]Ib!OHmzq/ЌVQ{x;F8`uC&-`2@n- hWhlӔN4GQ$8ͼm^5=1Tg~^m^R{C~Hh@- g,~IPF4Dv, 3WYoTHޘvwj 5Uŧ9疁硖rCW\Ye3oзT)}Y3/(ah޿3bg6iye|b ^:uTԅs`.[Ǖo,( 6O ;i,`.+,pEKA;!Q*:.,>99RT&(5+yDiUN0^~˭j@`85u+I zDt^ `\qnm ^E88q;m_~y+ BɘV»CƇ$. % &Z~&@v1D$sbtXf,tͬUܜڙo S8؂آS-~gD=qF ;umzY8zػ$3T%=ښ X&r7Ҋy~%=ae Wlèŕ4;x6,<"gϣ!06ˋ5%'д P>^򭝴ίP2S&6k+N1 {@Pyْz([$S=3ɜY +"&K>FNXT(*xOz&9ڲ >v0zmk&gDVWbthn%D[bn?ƕa7q|uѨ v'Ĥ#- l>)`)"?9rzW1ox?4YvuMGyEU1n&EYfjud] +W,r4[ =e[2Pꅭ(ڳTPMa5*鶻W?a=RșMHe)6L|ԟR X)X:aF0 EHn,QU}ϦBGjK6CΕrw ;L[r.+rk+AU @ J (Vܥ҆enr%u'e^zFşYQb\UtB+;"83t< .sjnwdHDz_ a*U NQR"`fM̽FC\v%.g8Y/Qh;y|Iڇ 5Ce.R$eR;fcϣ-x;}h5> ȱ ~5 Q}gPduƷ;SWWR%+LBjhVYǵ1:))dDyüӆrf60f*.jB`A~@Y-#gܬN4L/F9Sx*ƚiA(X9U|-1IRayPe&Dsv8#4k!k 9ԁ}`+K'ax,FgGT9DD,v%SLc78H ^BQ~Yҭ]=˜HťsPTaxkRc.oD^AD++6baOKQ5q"QP˖V_&vzto _oIǯp?߸~tB90AAUҐ,K R`@;PVM A8~3!_S¢))%XV+0nTS>_uq"ߒ*tMT `9G:RҾ#iF;S1Ge:\"H6w֡kc0#"쪍!o雕a#EQtf!8ޒoca=d6;St;$/pgf^XjUFmTԵ\xM'^U)ծq~\<* TbdwcیU6 ̬JnʨS3 ΔQ \Ȼjb(Q 8}4Y6.,I_ Tp5rubЏ (`2Ȅ깚_fVJTF8jw} jRwZ&!++YgPlFc:|Jb@s#s=w}s<טHHxSXkܱXS'T!%rv{ S"*^Ml}LW[7#uEyxeԗ}-=;7ZA0 /٘û'8GKTo*L2Μ0ڨeW<ͬ-anџ$T[Sޛ0&~5ˌjLowjjB#ڪrmۆV&KѦRP| ^}ebrL^W{:{x.o* DCpy[LBKEX\DBvdLN"ExFQ4AٿI'gjVbn/6A" qһg<ԝD*M$@ɽ t.KOu% ʻڻnTud=bC Ή~S>?{xL[iy-נt2JL5cIR`ycÙU:wYGqn;hg&)t8qEX ø\_g9Q s TV(JA&kKR!ywOw"qϥ]R- i40R$|*\ W_57|ni6;eN1%[H')UWƘ!EHHA-V<Npq f/ 3)<$RsUEm8)o2y{̝rJAtӏ󣉩>$VNG5x&'D~(<]?&|V:Ω!CZ]cjk펡NPLxRAK-a? cv:x&Jf\%lWUвΫ{$8?Ǹ; F(nAHr;V ~sS)%lbt\Ȅf++8wS|ݵ~shRSEsVHkV~f>u,+1cuN2`/J=e:{^>{^ -17?ɩL|Jak8,YʇU?|5N1+PRЩfF(Ms%.CuB> stream xڍWT컧S@QaF0 ƀnAB@B 4P@Ns=;g{ߧ{s06VqB:40X$P30@" hGR-a(o8!j(C83$Rr`i9 eD!p'@ySՐXee~T<`(8@Ю0\F(`ahB)ўr~~~"o$E_GLa0/ . L0w{!6C: ('pCao rtF0l ,;ܟ޿!P(.g; `/Ơ/C7!8߅C*&ߟ輡('[ 0&k Ԑ0ڛW}p :VXH?Dgg8'OQ NDH@ iY @]E7z~+ĸ<gXh,(+}Np(s#(Ü&c6 Я';w?濇+jc/*UU$ ,I`8@ww6?uHp s]` I_Qg=>|C cXm40'juf \n"[9P? p1Av {JqV)5Pӯ@P(7xM- Qs(__BPe=x\ֿ73H|ȶZ~˃ce3W>Ԥi5የ*i}};<`~#?MG_RL3vm<ws@07]` q!ݱ[-w'MVj(G,mJǁ9̜$hd04GǮ ]& Rm%X/%LWywpX3$eCcfQBzVR9E7Go!t=QX NJ#ƻ+# Jhy-xey}7FfiW ? )mZqX{-8}}e$~ dF*v'H>u2Ś샖ThzJZku;-FnZjZGYI2.OLH]] 4K/h&z$^d.{GX1{hW\5w~oͽvW59,=EkM4Dnǭۧa=[]<W*~eqy>/2{6Sr_6GJf )zu3` V"af~qnmYLgIBѫi{k}:}́k a$yy!!y^i1$xm4\zBSJ2 27ْ[Һ1лL FVne twS m+`'*& NL3>oh9+ )Min kfKD]ͧUczOG 0 ~eÇ(Њ/+Cr`) Ɏan]d|k ֙ΛGZN(V[g~Ay6ukFɎ j䬴C-ԥJD8yo0ί*Sbb"cQק~r{+MUYُ\k7.Α~L,d{!>܅*ak#e_΅ęk<2,#S; i1x}#&$by6W?>q ؠ#mVCڜ?VWl[D*#iXy;o Uzo#F}v{!IrFB -e: 6y$J!IxQaQAZީ0ѽ9AҗM#lsͭ3/ނKX,kilߞRTqu$Bs=I5PQ<4~ 6pqXy{-FM+~^T[bPRڐT]~E0qgb*Oa')7ɤ3z_C< LZw`VaFzmquzms8?+/RmS)-{nܩhSQT gSܙ .',uķlEOl}%ì(_x`sJPvKt>QI/OIq$$> ۾W5-*2m^Xo粎ꁪH,.]K2vS~7}jS >ן⥨ cJo4UG|Ч6 W\u;W4$ϖY^-A]ݑqɃU]u2ߨ2XQAwbd~э?y`ձàZ)[9|?CWKw-{-­̦Fv䩦݃8l:5'2&RaQ`NbUjxY @O?dHiƶޠWM:!$ՐJ)|rW#UZ}Bvuy#i!D=QwntHvu\Z3- /d AmrJǒ7~0͹>ʷ%-x b6/#=Q?XLNiavD^ V-4,2f?Ӿ;@ʥ8,s]ڒuxRoOm®-]R 0@XԡBf-7N!lcx\T𓗸 };toUP~*[<G. = )L)< ihˮߪ ݍ>$X"ՒȾP!NF[g7될[fbk׊_ċ#tJ]nXJEBzT^&tVQB ssX %=N$*(sPa[e)}lIAt/>%i,| /1ӱ)61фpL%g{3c^شbxOTҍ\weϙu*73|2h/4(FWnw8f|82;xckd|5}Y< ws K,fsTzUy^y:"5^4}ysvȌN8#92^ I`GwN%.iN7S֘Mm*2)6{;om?DwUEڡM fE6ff~B2#m }nb:m޳wuj$.㒉ğvM *GgŔggcP 4>$|Z! %V#}F'R2*;+K't<[B^cѥAXW]{!;]6_|":'%&_6XNOÚd1nzn׀cXKivWܸTloh'97G g'/dڏ)|ƅXӍ 4 ',rJ`m+|j}Tj_{ C}l)M*>"ٟc;V4T2 :LvZG E廒>&z+$c7SQP+p}w'4} S4\%=I%S| _j@{pЋI.rQ+p_ݼ!5{"` r v{BRL>J$b.G١>5^}l gc.}Cj69=Ssi* KT_@OJ1TlT!BkG(qcgws6#ԷK/\Xcއ)|ZliՎ r5(VTT!+sܸszv<pYiRг|P":eu?ʿ?L Y^IubKYvv1[s: m R:tLdNqMsr5zSM!Zw_!^ø\}jgu)MSzn[sMD<%ף.9WCԜ9HD*a{VTMQ#C韃* FYJM m^*Pj}}y;WۻU֞&Мj rt;_U,'J4$U>|:LjxZT C X-?zc@h^M;"p7N*)!A7`[ѢT*v>9}]aE^l$ T͋))) qYg3 #M9 0杦@[33s!V #P[/-LҞuU\Ajiq_!`zTbjpB\/at80n>BAyID A˗|1&&h.II]HB^BKrXșMLhg0/L|X1nam0.XSVz5* uG+[w{fo? endstream endobj 190 0 obj << /Length1 1493 /Length2 7046 /Length3 0 /Length 8046 /Filter /FlateDecode >> stream xڍTTݷn@:N.i$f`Eni A@:DZi~{kfS}>A[[f RA@>q(OY2n`T +ҧ`@i5w( E||b%+-@pa.p_K ;(&& m +`t@ \yy===yx`p\O0 r=@_tVΠxp`?z0;@: ` YȽz-d?^ _@`b+ ؁! : JVV`52J:+$?ٹ.770C_0KVÜAP) {n cm`kT@pك!>>>1 y8vv#s!)v }{. {0td<0C {eԖ- 'wsyMt9;$'r @>>roW ATbP@_4<۟0Ado'g]i!<;;+?V`qȉЀ!OA QUr2d/j6 !`(H||CΚ)qCvwo9~!an卋l<i k/@v08~|MA1/@v!ݐb@<8/(/*6p8rK /[ylpga6/k_]xroJM1o=Mg Ja~?M@v&@+NߍeV+qʾut82~~Nhͨjd=^ua[:On'c b̂K_YP1b"9HΧH9qc}MVf|+S?6C;#`IU?[VNlYsNBv|4u/,clTh1+-*IΥ I9GKj+^"n\ZI;-H-eωD]zv*W={U(cǸRK _rT a6Dm^; XKUV74si4~ڝh.)6ZModGJmt3;$YȓyKbNzΩ-*̚' ʘd&)_ZۮXU5&XΓ{>(CU l&bix\1+ku,i x6yA/ p*?lٜ*>yP u 9J y_{z!Ot)Su*K{bo|~P0?/$yJ㝲> tgS`=ɢ'Lt:U]}hL؆$=2/IDUZ@sQ/CFk[5"Kwk!@uLo \ Qc|J%MI(hjZGfHHM:h %}A] h1EGz!e전 TkYhWedc4ʷ. iU<|]Hm) .m;:'IPD4)jhڳF¥[%d4Ȇ 4W*;D{04(>yzF N_cM]'do ,>NG5}8d :0@nwnk?{Xl3T] S|>4 Šu(q~z 10g1EWCݭ-[բ>ԪSḭ֩L-(ͱ=SB[M81"gЉDrҝNb !' $eb\bO.E-I̬66zV{uS\w˛~/V“neI_(0L๘GVeO\<̈\ P{ĩ q-cJڶcLCoט/ULns/T_<^%3Zf*XൠIn$L ɇٵ3s-6v>n[A7J9lPnoTMg#;WSa+H+vSKt-Y1׸kcug]NTbNh<ӈK UytDGN>4iXBJ.63X.30&vڗƴ`ɘK%,Wu1<>owD{w: 2:W2J>WR \hxxhCH?]n;V7AtM!ǖDHzzkbXbDgݺػWu8mkv Z7Ag(i.ad4ɽ僧EWwzþS!z+VF}AWw9NWr D&/Ggم*{=A^.ŭɈ!Vؕ;!F`I;U4KR;FG-lŏlOι c~˜JYeYss)XnQ[soMb I:foqEF8]X3(6ε,ڀo]Q8-@ęD,˼3tC,EdILh z^wڴp2МǤ;xu.tV^k^P#d횎^\ A!7!utg`-W+E6>e~LYQ'[]wi<,o'0YɣܷDTPgtaJvre,y TWjQ==l5}9N,ɜ+~!x Q!1js.*Q[+uFoBBR+X9 Z܋k&1M|y\5;ƕBEq)ж\IN_e5^6YyGvG[RSha-el9z'OsQ/B*Z2čI2:0fȊhjrz E8 {an/;-0I %brBڟ]knZa1e}A`IH>^w N'rx!^V=kJ]-F]@=H|Ջ6CcR0W&!S8bS~N -I)Y<̪ f\*)yދdm(V8aIrq$VtN44g6'bŒ(L5V3ctxu |UA'FF͓$?thJrf$`[#lҞv\ MUkSƞęKN͐g%PNf'Y7n-nlרU)@05[a>$If*jѺMypGd%8N|<k"bOkD-͏<'@3cSJ.0Ra@مLUhx_nYH#oLU:Mmm pLNDO;z% #ִLwD/r&50`iY H^QJp971mҴ-'F6^~:5ؚU9sY%q_ɋyssi#ONVx'5h9߼^{=<~)`mg^['Q/RK8z_yb̼GjiKZɆqIѳc!(Y< CCgE6; j-HeDVu@52''7b_x)/Kڒ]hFs 'W'^t?R.Y ߷TOc!N Fklf`V v~krrP1Iw:Lwo},~6*WpG/8M*;E]״Kx6\5\yLv^?9 x_v`2ť5Ņrc:3 ^t]jr;juo~ºPO{l D/ՊA|ք%GXoH5b}y(zo*-1_Bš(l95I}|&12jy(S>fo4fCבq-Ya |x^7].0&IǧDHrddsi+=gy[ . 0U~aB?B蔗"xSƊ#ü*hYwC0$*1a5G6B⯜ aG]w;o u?NUe2NK H$CF97<3y-94O GwJlgS; WZq(RW_4Jp" b|u65hp&ZnwΞ%Y iq;~2ONq,[ӣ4ЪgcmO4B7ZY_ y6JaFN0Du.k&R ӑؚai{ QѨ|d4ŗz-lZG3շ<ܸHG&Ϫe}k1vBv])]OFSJ7z͟yj,M1}k_7Fx,Ecj'*?Jfx`F_6+IƧhOLheW^(/ K%z1%gXc Ux;olW^^~*Ud}򹡽 w ۵DvzEMR|FAwD+nkKBϘ*zJ4f%F^%9|bF-w>PN|Dg/*Zҥ_u&X>٪e1!j#7ͫ*]U*Mw,6;̗TtS1&=N;Ԗ'`Ije%ab2ЏN6W1ϋ "W3x-Ԯ|D_5T| sCR16OYWh͈;G Dɸo[^-;wjКcO^H #f@WiMTԛO m h/x5Ta,E2>'_:>tҩ/ƈL{?vdqoEy_XaOuc4va-=1wRa6FЩYy{МTy8YU,ޚT=u;}nrẢVu\uVԢȉOd/upW:?S )W]%?歃oO9/F5Qi2X=ʼnujτ^<.,USѷz P"X ő#2c@֗] Jˊ] ˪h$NW|^6G1hXd%Fh.ں&G JZ"6Ӊt1;R=B*M2]GM䒳Ep ?xrS.GtaO{8 ,<>E-~ݪnY.nVi#q|xc[bDԞ@FD>#G1KZB^R~#䄾 6ڃ۴-BBSZ';cCJFa4 j> 6>H4Z 8re ϱmibV# x;SqR Tqq0ft:`ˆlh$p693l\՛gznѷRoVw%~e|3fߞ@$LJ ܑ' endstream endobj 192 0 obj << /Length1 1741 /Length2 11600 /Length3 0 /Length 12703 /Filter /FlateDecode >> stream xڍP[- wwwww@#w݃[@5$Xܙwޫ%:)PWT3!RRj\lI)N {0?N@ˋ= j `errXXxmh0qr`3"%˿3Z+//7w df(X^2@@ A#`dbdd)DpXԀ@'797]1&DJ/"/`s%7@]Ve_W`ebOyq613s0{ -,064u7q3ٚ) % 0y/vfN g&go̿ü\$\vqF] hrjw{u-~S0wu`]x!-8YXXy@G̊wp O%oK @_ pqrzS`2s-A`Ŀ;<Y^lۃm=6\fU UuQ ?x38Y,\Gs#U16#ʂ-QxpLk]hAe^<\fwo=R4_)vuyE6%V\W+b`K\"Y 4WY5@Kx[b YYXGkf6/OK/)%fw `d f}YNsǟ03]^\/|N `-xAf/?3lfo䵰 |IfR?|Yx}oR*:&^&4X_r;v|p|1?ZhYyC@Ҽu}pm(;.DprW;{ɩ.&3pF4imu[Zdq[#\DGxvI/Ǣ D"{>}l^wQ:cܺH{4 p#=O3hFRfᒽqa$C?@Aϙx&G=a/dZ`s%F;HY.-Z&PD̐ʈtQR׹-u& `$֕`9)cմEaԱ,:nz-Sysܤuk:|=or ܿƧc[o=Xi??aq:mYSbw}j@*O1?1z"7[-,5u|'JB̰`Z+4~'PvsƞI緑.*2닾U\MX)wPN/1DuN0oHG'AH\V`y$lt'>E6Y-'C#oŧ#?Ej&wbpzw~?i*2:[$_Wys] Ra桡k |_{2W_%5I֗^yOZdS4=Dy\[rU!y.W6LLOB>xjܽHUQ|(/@3[Yl:ec@E6Wk@.(| atY$q{jb:ÓJ&23YrR +?m3% 6owaC-b5u"Mi&aRׇp4]~Y7((m=ek+b4STp"}rwH|#Rw=E_QFPϔ`X=|vL%eXmZczB7$ ;0LAkO4<9[)@2m88͎.Si[񞎏d(ap%bU쓧:l4lc2 HVZַc-?̄X '5~У{nwa-tW]0 ^PKA2VfgMEY!4cڬ1 j|.*:v&$cf|{? ;אS KH Je춺,W=f,T5VfW@զj(45vxzr_KT`WKҵ[hAB.zA5لo.-6Ғ;r{F6q&nj/viBlc4QL-ǷRL6%O1YU53yzUaa$%|z+VmLY'ٲ]urONOtj)(LODi0K~3$?හ2i{h_TD1"jhǵbc*8Yp*WÀeg!r ܐq SR!|%7",bpÜoCGp Gְy٨2?ZB2j՞]u[.;nȁu3Zʪ d>1e؞Z.}}ץgY`tc+]jm=!.Q9PMFE#+I$K.,㛟p kDvDqH﯇H-DsV*IƮx&%h̭x'8&?w 1g㰉$E|j~cR*\Ax1rY Cs&I@J@@Iyej6Am'nVΑWHJ K|B.Ǔ[4c[*P沼UdV57-dUSݕ؛ɟFy}?da٭?~v^ϠL꣬ T;t$(n&ru~"g M.3ε^OT=T/G9\ćöm+wTۜdʚ>#v yr/~_15@0hnggwgacajdtEG4hzH0$r]{9HshrsS _CV_>٦kõ LƘ{RO61n\hT)F&h[|}!u+,L#C[ ,Ϋq6NO{3)O8 KakdFFehCL@C{ɖ^ԇ2U4ekNa`Ɏ >8Bj_?݆H"w~5n!c%œɥE[>>U ^ 8?K`U3˵F+zdRmk|`ʋkSv}> ϙM'PIJ@|ʎfj; ^.l5̷2TpBwKc 횔~Y/) l}I3wK%ڡ#0AEU}F\x_Dd=<.k,-e[\"H2b9(s?}XN{a5@^'0A;EJ{w%O O eE?cuġ`P <s]4;:ҼgfLܒK!PU]U?h$ &%QLC<MMtI -Rhs0QHԃf!Oox#Jblx!*Vq67ԯ\ooI3qM|S_b *m.KOJ]{VIbT5xlA~OUW}쨻oH/]- BhGټWiAN1<智úw Ƭ5|Z m#!kLlW9PxM4:Di +sIЌ̩yqM$#V= 9:W/S ~OB(JVv_1hJ;ӑW4rkW.#pICV&f4-緯WB1$3_'nU,6K& %r; DrgPM u ֧t֪mb*AeM2 ZͻE Vp6ukGt!<n/ cC':  IkNLphF5ŚJҚ/F_x_b Ҧy,X_y"'A1)H 'QF6V`@+5I1.pkP.M9pˆ:ٺZdlccn :1o&ZrC3\h颰TAM.n7vؐ0v=Y#4:.0؎Q|MU 2sRg#ևn j.^hOBh~ JӃߵ`?]7|'VfY#{K' ?z^{)'ћ~%#CxQ!ݷLnX25:†r>P[K+%i#Gul:d /D^CJw#ʀ5$'Q?-G59*]HO$Ve@6S%ӣBtW6Ÿlp9l >cV$`oC:kt2:?MTe`.Kw Tɳ*G^9r-Z!<~UD+O}ϴGAn(GHWZ4X!mF&cǖ:,E/&RsҠ}Ec,H]/a*o,A$<|K/~ǩ0vO׹SHΔH0D½n+YS! 6@Q$YGj6lBTAkxj^S"io-E=LTj cfHQvH롆x}uޯo݋+}s{%Ņ y;jdFOI)Pho +\~_s:F~kF.4sNk6+vRl.IkǧkJ"FwI/IJ}ʮմ)Yp|9d2fғh{1}pfݵVjYwv;ʵPOK}ʮtJC(6<"Ҟ f{y+eyjF 'ޱ_C~X˸b POC?#B?0eГeG^䰄eƒ`anAyw wQ{InwD F`U深,&hlox;qU'Ցz﬿7Br `'pwv%bNB/D`ʰzQԸ~ɮZ;1-0lby =fcPw(?ƔuعFs҂ќG!$8ѿ'yư4<tp$* aw?uXL6'<bBY i8|H} 4yS0f(IL *R+ Q־FQvsLUE;)9%:ߗ|*yMfѧ.#W>k|mއ?_^x9 ɒ 3Gw0|it+p)۽hdurfo _zAS6,(r泚ɶsT-g;gY}iˎ-ް7t-5_DgkKtsEÔ[\o# ɷwTlq5˴D L;t˒4X2Nmx. vDJƣL\H0c0nFnGRv4s 9J]!(M@lj*U0Xp __/*x=t H|]|e}1>H9!blhcP)o-tPP/|P9/ݧ/N[t@CJnX}ccwW^, G"di/u?CNS]?GѥȭEeRv\W;j9ǜaS'qO|Vqz!{ZDjY3ЅɰVMdu|Eж&kAŠkrV y-vE/{8dN v+$OޑDZQ0v+QB冂UV3-Q烩|f X&DӏbxTfGKd4T( ,W&{a4>N{.f6--RKʃ(WY$9U٥Tw2Yʜ@hJ`/3_ :=~dMn)L J“>[Rj_{("Qc.m4$oLsekƙ)"<[H6BF8,{b.f\ne,ҁ!|PD,EV8 l6t*0^H{:XW.6pL0fMNGPXT; p/ϯ+"?QO=m`_y`ޑhJ7g#Hmߨl|ra-ST̆ >yip'wǒ_]&&xGm u3#>` +4r>|ڈ`*TףV`BǙdHfG6},X[ȃ^=/ig*IYy$8EZj QmJm6C#ۖrD59%(+t hY9|?fv{Vn%:|EJOԢcivԑ7 UhkLp")N!F1>Ҋ|wY$KK\N'HVp /!gJ (<6 ^4]}(Ů{riFn{%PA=ѹjۅ VI+f) 4*8v"6 |00`HF!GPCppzU|ü&o s4n|~.d B~k|)Jgă\iLMq U64vQƵ!ޢ}H3}:h ĿXr 0I&{gj|Ć\ 1Ir KfSF*l7cJx+`BTDҽ$˨`Zm:Ibwl zKK]*vf$d)8pjUDEyhbZ?\l9ĈgTg:!L̅Pq>q{ݯH<3|rjcYRH Ġsa/C/ZzFQɰ]oϭ.V="/XqJx|~RqMj"-XK4P2 p_ /ܜ$`#y8xm0ԯ[wߓ>tR~>VELK#< (ٌ#z,R(NL)l=#mu:׹xj<Nj[_G3:RB\XwaN[Ȇ+V3Y~ slᯅQBRz!.^nY5Agѕ%{96UMC<}ϯ\ujְ~4x MI1/?T:YDbU\֨Zea* \?Un+g!E%~{[a8gi-9GD^Rbnd*Djوc@'ʣ=nWWHaMR}^iOKa 9R`lzrB6y%2AvZ␷f"* - XȘĿfR '>8BKobv} )ԠhV?k#:m-NqX|nJf(j\l:S, z` ceN YI; W1LfV {{+sam")D֨SȰAI -:9oANJfDeB Oh&2oX '5h滦[MA漆R?T$DWH, p.; rUTNI7oZbd}fuXv"]QkPq4oA[mk&aҍ4-W ̹ɶ[f}Щfc &f#qdT-0] /Qm;\&BNLzG'$ f3T;EM6uѼaaLG\cb:zaxr (gI,fpG89l Xc殕iF=1Ts{׆*nye1t~ /~<|֔>`Ϋxơ8Ů}1O'2&˨tqkF嫫VI]l!f ƞow*<ok`(0f5@Yaa]PEo(^mZ&l4F}t0UQetQN.{SKw IxfҘo\%k$E0x DxN.iH#ڤsD2N5}%%hOdb"wݓ]dCob$Ӓ>B4jJg1?NMvùlL{êr}[bC{*>nsׇhAX2~q{ev, E~O7lDn&^[rr={H1^Sqi@..tbW0zltB =+:?D6,˛W+;? ?RH*k/d ɷx*ٵF&i:'}G|M23{ rZI@0 }#G .Rc-DAGR{SχqSgk8}m41T8Q߸Uŏ*z1N14-_EJQ/eG[4apWa|8:R| Wj+'}ל&ʐsƖeZ2l> b &ɲӫcN}4[ͻ.B_Y)X8TJbƚMky8s4/5xKP9S|j}+7̉ݱ@u٥ݴ Yfy[F&\OBR}-#Q.tdC Eh\Iߵ`w‡1$E9o=1>De:^J)7rBGϠV s4!2Nɩ E=0y&SA+)8AẁlʙaWy"5FotṼIi̍qy0[r Hmhח8ȃ4nJEpy仝PoIQYw{fiCi*ܜyGֽE&T?6'>܉@>%x $ ؖ%F53|l+TNͺ=q X , F^uBHt=PӯvNb6I\V?Ù2ƞ&P5 (Uxagw̉sjݍY Ez=F!<mJ;`17LeT|}MiL9G EYXO/;C2V98sQ/S q\-*&ts/mtYh|1]E|ݫ +/˦'|Q!2׾61+5& O͜>Nk70_Tim8)w#1x%{h־>yT^o/b g\H$OtCYR)"d7?g'Vr&HA]]/z֫Ps8!E-Q;A2}#Tnt!KhJmyR3(I'E4p8c> tmM+n,s>Fȍݑ> stream xڍP.Z\[ @)Nq/V RP@.)T-gsL=Kߵֳ@.m 7+a.\"Y5Un./. [Švra"u\dr C58 pDE<\\Dr 7%@ dNk<?,‚lN  r?dA:p B0ٸ8prs9Nlw @ vr[~ Pك*kqSrq9( s~pqY:J 0Oc? 5py ;`5 4T9\<\ oCrA ?(Hk@Uř]#0mY0g瓃8-p`pw ]+$̓5%(,;6z:Pr?wX=X~An`+ߊFXK l aA ? x@?n à1bN- MmyֿJRFfsyx?? _WD% g0;:`?7x^?\;{"W(=ӟ=Ϯ.\h5%J.Y?]OO1YԄXIg 5ΐtgap8?La;<n{y '''?aU-0<JX~U['p =ANS?HX  8AN sZ >|8_!?a8aw|NN\h+ [`--Dmk~VI?ugߖp -\yNxhg@eg)BX׆je3A(~sUȌfiMzڤ=~%5Lx3RESŏ6 G8HcёBB8HY23Jϝ/ƎGx7JC6ҟ:\eHPM{oڂ̝?Hҋf+mO\(^d#&cîUM`s*]jjv?HfQ042l"b~lD}'If*Q?aj\sljLZHj'%2nH1BO%ƇͰAx\wO@{s3*S V@ 7X!9EbmkgC-}5>xҸ.o5дqi.ԘW<__F|Թ|nqy/9H'uWpn|-ی2.U"Z&xXV|B+*`3 _zNP/9(} š4`9<}0 !(0 RoI Ѽnk˹еr64S DLzp'̓-q7d+%[ٻAPfibCj)$)앇v}!pX&3*: r\3 h(^ &yZYj44DVs/EEP$'f]Sr?l#Bm7l*vkB.LV0YGÎt1y1Yqdb9+ 1'y䶫w! Q ~5V6(-ϯKya6A6UEʂY|Ȩyq9ⱹEtI(iNX =]'xM}\՜Vq7=9ٕ3XnLD/(v'xcИXS'h_Cw5u#erDIʹH,ۋS+tyr49k/j+20G PJy[ip6g]ĽBRfdH\K6)@+߄ڼy^4Nm`d&-ڀݥƪ貍Y N >űi5+`O5p2)H_CJlIJ:vڗS'jVtbȍa2]72./3k壄~Jx׆@Rۛ?wA%6)qt}٘n管'e"0/j)5j8o%$.b&[H%>m>J *[]/{gHF=(Kio2mʫJ!yI+kD1bk`7S`|Y[j=J_CNzYʡ'8hAL, -ak#G2nR] :ap(,%-l\ u㣋Q?ggMZp)-{BQ=%kg@b8c^L"[SJ9q`<׹54v2x籚]q"GFGDO{W쥔 Fs}sh둚-UOٳns(,uq[JdhSWQ+ѕVKi# t %XQB lW/&p{b8Ǚ<^ }c<5 Ab5G-MG^%« SHV=^jg$[8#YW0'J&R?z'WJ/1OY&ذX-w ;dlY= Vk$h @wma:mu-/ᔉ޺P:y<˔k =!.2GNk ?=l**oSb@7AS?RK̭K|Kr?D@k)[1/~U0{~ cg9ؾt"M<ÙƶYA X2Lj!GB:D/dJ!}"]Rs'}&%z8[\ Gk˖mkx/v}FUlz/YM523\Sl׶CV7;ty p'myh7s6FQNYV'ɖR5&w^U/vy5.?{]t^FPYlôyZcGwCfTatbjxGoFLvBzDcϾHr +_+q<"79;į"ʼn(4JQXL;ߖi-ğ,6ncڛe{drzJnT$qs0nu1fu9o 0rgzLVGQ߿ee$2X"mq$X@[mc%*b<~={jmCi 96$9K@UK!g[j)d Rڂ%'^<nn^{Nz6@Ћ.R*Y%M /&eg ۮ_)HnLhƼ7kY<쀡#Df6G|V$3M8sUs-US@mƝvjCۙOQ(7ҢnPМu{MY8SqwxN5|S,O;Qc΁jxb59hj*(U#Q`*eo"{R-}$4~Su`8 {ۚw4 ֢8Вm3Vj8d w5ҿB傗ezΒ g((?GhZ3̾!#$ₑvw^6zU `9ng(v?JK&΄ވp ?:¶ۊ6ces eou=6 E],'/mwht9ttlRBO*Z(69 C/dO:0"WBgNAe٨.%>cMæJˆ}[q}?4NQguW-24Y*ׅt>ĊhUh}ny#-)ǧ7\L[6?賔Wg3\]FÜkt'}'n9{[SQ='QG7yH!G~ԡ'%BѲ̄p`\п]biIme-5Wo!x4^h11* ؼwu$k\h}1igjAW'[uŞ epoOz]O(˜ (EGHU`:f%yKБeuŋHLx<DzY4YgmPr؉ʟ y3ZKW 6!sGaBGT=o_HD368:b-.EfiU끟OFr䖴$ٳĐ<*kin<uaΆ<%cmMJqS _Z-}&y엝OD `yVnߢ",xU6\V\w3Ay1U;|)${9SDY9Zʙ(}NwB7VfL܄7y;dt mvI#S Y oKyMf㷷I1*Bs-݂{HAwrKi>IdWBQVeO@u!|hWظ '9>=Ҏ"n[~_ᜳ}~(ݽD%HմޛEؗ&yR8$&^DZ_]ČY [04!P,aXZx)tIOPp e՝Vrtv |rxD`0/X-G$`Ղǵ2m7rq>SaR' :k\f/2Us0vLճ %_&Z ۩oF-apPՃ[bD>҇/D݌Tͨ*WLO$>vMhl"s5O!4d3 vj |"8?KwճI)Ž|32ɐI9Agf:OQ #ĭ?Ã=^ O $5d,mbgǣKAH +rzV6sydnܦv$A )$ n-x[17g'+7Wg,\Е_P>NO|گS ]Dg1kױ κXu:H:'uS\9DW:܎}} $cM|^j\u%fv>Ƅ/0ELNKyLl}.= By0lގTBE:ϼϲnB˹yR/ڤq5q~$~&@i@XAG(L20H#fV,=0506/v̴5ڛg5 sƾHOjX0zYT 0 2̦ᡭ4+Jj))A/cZ~!;>ez)r:eh`660 cAQwMkQ/+ /wb3<^ZyU}h=rI}2j z_7 lA=LU(G> F+߼G-ϡ ךoU{&C/hf69g&w]%'F?3]dޜ9(&]K\ޚOL%f| s%,D7ab؋n_)F^{lɸ3,/(ayŒr·45`@[k=2Gnآ LL#崮)}Hm8d;}Ze x)+2r0:ɐ5~M*蓽[B76T!g-cP TMDW\3,/_*R@+hD{yudkqO< 9Mc_owVA5|oV&| ?wh$MxG|Qx-@7Ѫ'/&Ɣk)0K~/)*IH7P%CVcJP 3S7HYA줵{qR%4~9Xc }ve:!p~Myc`ʾK2nfhR@5'0Ca (c[2ojU$Z hf "TQ@~wR!)J1P/k_%]X;zjb`rO$6SuW Hhqm7 >)®p9!/W4dȩ MZ[|l3!7UUp؝ å.Q8B2Wy6ȤD—MN[&Qgf0toJ&sIp|Ud˸8*ѼC~T@d7ߑOQPL!qtLD:J/@b0mKgWAeH3ѻ[w?)ttl"A~(Nk#݈ ܦ[JMa]X^_zejF^{<{&2khqW5=̒8g/$A=:ayNOy\۴ :y3i?$@ ZIw#`+yͅuD BEѕ_`SK,óc#rJgRdg,Ѷs)kn̼T͵솑|{_+or,%&ph_`BzrqK>_$E7ä(>)37(:bp_O.Tu@@>(GTitj5.Z+hUk֕;nDHV%M9hTg[ }eЙT'\ !識Nrgn{-߂̬mlb<ï1)q[ΨY2S5A&8py-@SܧK2[dfs-{J 7E<S De G]$i ΅B>eivSS0zpX-NrȄZ`Ai:Ҟj W";h\!E(9@@wQ[ IzR3]+|JOS*SI\@̀o&vu{u2^'Oyb2X:[#:xƏOt:vś;ܕ=5Zk9e*PHc}^Fj|( 0hI+ ] $<-f[M(Σi qg?yXo?!GFf ,—&Ktyҟv] }#:vD:GK+qKcl !&(s꼽~klhۢ.o.*G[\IiOjA'5|?NLRm)#Y#,u\d-buMjuOIZ+J'&*qᅜ-jk شzb :y3I~TvoA&'J yv87JT׸#i-X > stream xڍVuXmDZ@Z]:$;eY`vFIN%DAA%[ǹ}f73=vfm=~95L $ z` ('?vC;p; B!(4TPp`QI$$"%O @Cp! >p;{:_.(7,!! sC!. 8P8 \Q(WI K@p({. s~ Є8.NoGaCآ 0Z\h';rV=pz w Bήh) Q|/ @CSrM~7K%@ᾦ$1 mRu]>#o&2 #z s7-\:Ɗ*|Yn Tu$q:AQj]jVu[MG>$@[әIvt x _q 3Ɂlb:coSKgG_}Uײp %p /W'V?,:u| >9lź\}|U(91]o7NIʢI-iM.gRߣVH +a|ܱA yǹv TR7oAS9 g$=ݕ[> c`ޤ2c߃ F1!P*lɤrs4?NԸaU]$覵w#)̀6nra.vjBhz%$GN=sZ]Rtq11]h[|漗+?gGb1JKc-E,?O~_0% |`m(s[_rI.U-i7_S4z6NlY$#1fƊ!%+vw=DYi] C՟mWƯn9>M45c!H7'G+;G9ױU[C⼻Aòw5wg?5Sx3G @?`醗N&.L۞ IR)Ì1g)X@` ;jd6=Ƈwq}/k`%;ã'tw _fm5;,9hkϑm.+CfK1m;ퟐL,}p3}Q.sD q= N_(B ?YBh 8v\եͻ-<1Qۨs'LVypc gem9-fA()c(d۱Y>\Y,2DM@G:Nw3Ωi*: ゗4YȒR:]?u.H\/5fh-|M_ ̍74a}_WvV>VӾsP mrC1FO}7[G+'\vL WkKj8nD:_r5[$?f`ٴ+{]BC1ܕ!_gW߄Er8kV|$:{ɵ>:G3,_OE!2pb1O,IbT͛<`$:C'( 0wR}y5\4u16{rT4,vL^wI_$PZ²Xv'+BiWI#G,,hOiK {EgM+73 ?Z]Ag[v[4,S3. dXnM(SZA81YicARLVN.\lhC_XhD<5  Nr9iP#'';GێȬh[e2mNf_ƎJ:4ʯV/ ԰Ytn*<[b|Vd2+פf@ڥz(>ι OY=,ۯ2I ]k6l0Ui.A>}Gj"1n}"χ{ʂwٶa&S63+I?*3]i$GC_ ^m&X Tt`糟VP<1lii]QM9Ӎ1dj2/mThgZ ~ ϭnfʛϏY2#GWh-\19c @M#0Jmn< >?VȔI 11L1y47^>$Tl1:GZ)Ԯ(2N.2MB5'_om!KHSxd9"}2憄COqDK"'Rs i-|0 }PmciUAăL8ƪ#ܕf^L/VyB1*eɽup{/x' :k>Htg˦]dE@ot.yK}p5g<ԺI)u/Gӛ";qRڵ;>v;kJõXWt' uTp"]se+D6  a-0|v`o}2rHv$bFѭTgb̐qvP&'mtY4|'$QIQ)%IzTga^8bu{!/8T7T_O~b'_++DcX[r`i9xMY:kIoBV^ʪܜ݋;C)\a=rctYXb|aJR-чe4nq€fn³m:'gg*.Et[/yO$΢y{)X>0P8̲Xwo^Љ@|y)6шhqihȷu&Pzj~GT3`e~xz4]ߴ3O|$Nsg39' ƺxw7. N]t$j~jI)Ar#Ne&wm75<32&Kg̍DH6$geGeKSu-?E0b$@Eэ gfx? m}Y[0K`_kgg*me >yN-]/?y[;n#6 ۰sB|FX~S*P9f7q:QcRiz^[,+ ~o4c!j%=i)M27ѱєg}!wF2Df?= y,q\ni>lWÙcn-OYޣuKL[īQtjLI7"#"/ (nVzIUfy,Q]Uvwa7ZPƂu+yIԒ18;}N¯ ϬV|"^ުw*>>^0oHֳv=qA]#2gv^b=c!uyƒ f ?m1pOS`NDPRov~?y^uǜ9QRje| 0GŇLFCG|Aքzp'g5 .`>wmfY+ 3ˋC w 3_tH">#xk\qғ:o] wބrREW=q+wcM; ?\UdzA,WU[0{1悔׊1j+MYF _nz HQN&&ў~0\#t!2_E߱˔ H~i\vSBbnٸ퓨,eS\K$>Г>պaX?$ egzJ@ѐ("~ 냎İ31jm,37Zw[v "4[!p`O`[aRe_~kqi%~_J  r"U:{ 5P[qRa&{]o%lO뉻v%)±_H6KDm1S/)n΃$ƖJFݤ*(K?O~s|a9R{p^y;H6 B;Ņp6DH,]hV &s+uΒ] d‡-Ŗ4u /);!ddU`q]I=sQϕ*(5>a ɱl!]fn|X8a"ꛠv" 7D9KEAַ.3-A~W+Oo91iXu"̦BL~O: gHzUߐ6Dy:|i"j>X<YyT/@|]Sݜ =8oN*BEˉAj144@Ygyn Oj 븏H±svKG^o Ζ$aOEzr9nʋ*W@Ǔʾ{,+uh?_e9)vI t~]8j㹄I{EhVY}}_QBy4wҧP,כvGlN^mc:[l,.cu}n>@Y hu(^{)[ ߻^I$Wn(6xB`5q׍#s,_y" il6T9Bn7? X!vD~_WnE5*C"?LFX{tT H: )ze~`0+U&=efnS8xl+f;8"8M%\禆+K]yQJ78L;8!l<Fj]ǮI%v;C^/(>f ,omc?X$0!IRbZ(4/|HEit2S候] \m&JmPEu5rjb_ dz;ɥT:O5.9;wЎ);xX璃|t5lScch# +#zL-h|?兕%> stream xڍw4ֶhщ^G^CD`0 fGD Q щDI޼Z߷fg}kz=CETG  d0DA # ꅄ!2{A!(OBp@ %d%e@ @!>0@[@H0 B%P/=hCPPwtG{`AQ(-By Bܑ/'y~r HEЁCP$aȿG/ n0{(N;@twP] k W?ٿ ࿓!wwanP@WUK p_@·@`n;4!>A3i@!0_~AYFC($)ü \W8;8!t+]9AQ8POg,wP!88i@aPA P^ "`(: uF߿O a`XHM\YQ~@0 "Iqi e5A`@/bpQ ::Co%Hd?kwoU_O;CanuF@ P_zֆ:;%wr aHUAwkty7@~qabhٻ*HmAњgK=D%ğ0qq PR:@ ^TBrD!?{{y{'-w(jO05tl9VdX;Ĭ'V9u3ވC@dYxeGv\Z CgIi_QAI2-n^>#WUdZjяV䚹2)naƛ/>Y%{Y{3xԒ@"1ׯ}ٽ=i]Ut,OQ%ek4 18Oeɢ{]pGs|n7Ţ2OejLAޱ&u4cN5%֤dj5,*#z0z+2j8ͻ"ZIB}I_e5w'1bP9˚ ,]XlVp.RA13b\,!LQ7SUdzp--ki ! vwyz``/BPY8!fOa`4'cW1Ö/*+Kj׸~V_ZkG{!†~᜶h z;gMpςoU`$ro_ l|RRL1h<ɻWa0J>H~یzsˇ#%VoS޵T=, apO[d10#^6ĺhYwy!LFխ9*_~?z3Ì*KioIMP^g1&u(92#S6CD_D3STK#ݴrMjǝcHy<"-S+NJ[֥2% ;d: 4kG,s?ϗD3>ph  x"F uanv%trKީ]I6̙>x[N n|GMWr e|=TqNu;ӑՖvǶڋPJ.5\&6SВeS3 ~bXcbXls e6y'{Ѧ]6ME21f,8s{W ?ˣN K8갚ۯ!:j6$(&:}&P\ǻey?$ø!,^'fDw֩)%@.١zJ)51K􆢊իeR^cjoӐ=3Z*|F=4DV1Ŧ2K3奫~ӋV.[hSHk Lu*b /Wd.鰔<|MOciݟx _RÇPN'%E2"r 6|5w\g`l$gAGLBf-~pOV3zQmU#t( hfN( `[T<_\P<,^30y)#=Z:{"OjTuҌ;Ԡ q پ93# [ `?,lq{#9`[ۣCqċ(ݴ[:UŲhM,$:c(n*7#QLzʫ?Q#)cGR_ co [x}b|].KkDiwx7P`wa="cƷNG8{kb ̕^X1Shw2~}A ۵t.'Fg}߂.ʓ6GRM܌bo/FK:*}#lfOk1ʽLҾX )r&Y0!Mjw}竲0W)d܊0ۉJu0!ܹ&WH՞D{~űz<@9eUH[7x%4z<(|I!o'SΩ~!O>6}"ެgEE74Xa@CeHR8E3">ߠ{yvp?+v84X_KYzC3lj&-u1jey_ 幷Dh03ؔJjF!ŧ_񴗚\a\6ſQ>f-f/ߝڱQrH}7jfqPH q*3vɔ%U[ O!`Y۪%Iʠ i+eqB(o+t>%KD\c4/z_)+#OQńo[hL}V>cROC]Wp,k5&ecxly}6Oΐ/u 3n>.m` )̩ }r V!l.}uv[z)33a'sx(>{8K,옖cFh)I]l3 :cBrN)[9+yo 2IGwnD %w1[kwiu>dQi/&xg:vzXgF&۞~ٷ41$l( \2^HcU}տr8'Qp~$+ɞ[s=*6C)ڦ?EaF`\=C0VcuR]WM<̹HMWۘ,K]7JE5ፎt U5q э}{ZC/릾nZ <6ݛhm.'*pHχZR3IXr^/ uS)'@uZJfcn[8Fpxul[qQ7J*:oceߨ[3n/KkMP&O-v ܖ\Y_4!6g:Hjq-u%7c?xeGe;V)#S҃Pkz?y&;s%!XOoV5`gSTV"DavqP\;W".}%zNJuJC!Har>fZ!LM Φdf8WBD 1ڋ wXn|L KHʷm7a iHfĦ a70gA2%"tvLUle2<擘USZϐ_9 E0(t2OVZ7aaUkw0Ât'l,pV>˷F?R+bFgg~,^_HD*kY$_.u~c0Zb G+5*ŧőIXҧ _@|+DƟ%@>I I)vݟl½z:FzAn0q>d@`B~n7|fX}?֠]Enyx3drp/j$JNe ;K9%qIT?W]Ӱۉiɓ)U(SvyZBs:@IB1 ֥/nm,k~%뒂nI'iMFkk z_L;wjW ً2˥HVʿONϼXإ읪Zvr4'*|ҨD]xx1屹M 7IAdHaJzBtVȜSmM"9[4wyxG fj+I:wu[ A7O+K۟~辭]iL?KcWTpZ(35WKHL)9 uM)91Ȱ%"oHHڒtڱ-;:CIv x`Aї$%9{p/WiigsicE$NpIvK9αflug Ba"kfYs2ܩ$5vjJ]Zq4G[Ձx۬{ۡ[ &o%Ϗ;cAwCZ+O u' q`2#xP嫾L6Mtz? '(a;aM[13 RT--1<,SfF=bM[kGzO_{y,CJh]|G]1p5תDwh*8;뽩K.w4I/ޕQ2Ġ7z~:n~9J4&FkDy 2C{[!j^91 T2"K^!#{3pQ]tT<(Ux3ypǝ!YꞒTM(WM[?+Z]#vbz$xQ1Bc{ÿwd*5rhryÕejκ󇩠1i%8:ͬu7Wy.g'˄!3Ϛ䕽JV5bَ0@/{օ?Ӏژj On4ƥ!I`F):!qk 0Ԧ4@by>Wj_!!pI٩ͮlT_"27 ̦t*E_ b^\ff9iye'Woa?o=lo(ɬ$Z$UX5J˘dB( ΣU4..&,(88L5/ǙWnuK&U*:IǺoAMeD&W.Ӡ[ ҩS%`URrW;n7^xsjsD".~!sy^>!G\寸5qSНdJŽKRV.>#UꚴN.jnKtdմ94^!}De c&pgt;d{^eL.#Kx58'9hl>3-ИY ǎI~Tx` `uvz4X*Z=%/yyy-[<*zJy8_2j6UsHC#l<y.*Sq'6nnr lc*'S {&O|#Ɲ *v^윖tv瓛4c\x )t7,g 4+ҥ(l܅dISz jdn]GIbOJ݁;lrɎo,Kk,G?XMwe~#mcydx|qqOcK~)@χ ?40#T(4]~A8xNw #_eؤ }\Hl3`w[!=6 $owN_Xsܛmĺ6=\dccBiMvtw&={> {0ZESnTRSe ?cpřQ3!XATxBC Fw/.}wN_6;5ݾGok"|yGo3.n~6ώY@e }A%@*0]8^CuG3 gCa9F̷t/o>T3-l/i7.U2K!;GY>[z<E&h~}i" Nb; MwpP=z21>,ߣo4zݩƅMFQ!D~ڎLtvQS>KGz]zÞ*LHI~?8he&ee`5(xd.e(^-sJ|anݻhCs|w:gW׃])<ʲКw*W%aȎ[ !9T{Q'N?'d V({GvVBm$g"s|rm3gf^6pϤX 8 endstream endobj 200 0 obj << /Length1 1407 /Length2 5961 /Length3 0 /Length 6901 /Filter /FlateDecode >> stream xڍTuXԕ^ڥiee%AEQFRRRE[ǹ}{f{f!=Bbx| 0 @66#8`3(`0ʦ\AQHE$ P BK p{6PQ>h_@N(,..;(Cá$Pq\UB@C+*qqCex^pC{쁿hu .؀FNp?\( ^p( ~䁴WZ@]W3W"8w0 EB>p#uU0 i A!8bw}yPE^'Cw(qs#~H{E q ^uއ?Dp/*HL]Oԕ  @ 1yC1qvxc]Q@+*0ux€`0`p$Wf-@ý%A~Y]= {: ښۭbyE@^a w۪yȨt@qտxʇ :9%HzbiW N*o_>b6smԕV 5!n}ȕV䑎[ wW{$#H@Rj^]+q2Ba ubWryp ? ^:Ѐ_S2F_jutL5U^R۩x o`:Gl 24_LvUu܎~.b:eVYsd{6~y){2NZg$݉ErSޱӐԏ}"ꅊFXNSKՋL & 0op,Ć,F[F褳hJ5*zg;[4<cȕ%W䓜K&~ɘ`] ^fSePz])LqWuiaUheJ(9S*=h+qaDkxN-bԿʝ < 9" 3Ӎs,[G-~V!MFJw 4 +,ƏFdͭ}0SƔ=epz4O~UWfmm!KG>alG!BPC;g 9G76ăg:~'O^#ᒌwU[ߦ?r.|zT9tM֔?JZ<.$Eeȋ3dʳ\BeVrMM#4Ajֺ-5Gy^sK5<顊>+"pӏ8p&*N0mvӛ=vT -=w b7;CoGR?b&+_EzN T79JEtx0M,{:O@X EB ~U/[T,η1βo¹Ꮾoї^ks7M;{VJ6ni둣xZ&` AMiTr7qkm%}$̼)pAX \/%+c#2(!JlZy2 J%ylwlaP$D"ƑaU/ѯ2qkZC,V:脍L!!w=mO͊G`2T n謔' b:Ĥq !zJj$iEZ&T x~ /C>5?UR3G6Oo}kxSb5O^x!\ I\͉;sWI4oľ ("8(BGN86 VoQi*CHަãZn ןv$>mP؝xy=zM*]7v9/.}%5bK!u@`pADC 9bPع s{?.qdi{FX Ho* iCË(]y~n:kXgvL:Z_d *nFtΐK/;QR R:N v!6 ~1WY0fP"3eZ{ J iX JqFtӔ12dx"!o>ݶԴsY8I3ݰ*nlw}r7dҁc 4>~؉|^ 84? 2̘4OonVoX :>L)`Į_{;yѹ.F#6r LJ^N62b{$5/:ƞi]TP! Ԩ|sL2DNnWd 3LKۮtϚNL{Xk1cs;1=$~ʵ DF}+Us."Fn^jqӰ㾏#&(桎4qlڒzlͥNlY,3sCAEF]6w#h]<QG$WM6gE1 Ӹ `˛|T=d"v\rܺ_!3zalKd^R z'{Ӓ]m;} ?C5FK^bSsz:{(dTG&s?Id-_)/e/PF=vB$J(Wrﮦ%i]8£}2 3RgIߝc(xKH~KF]M\̝$ Wt54H_EүW%'8#R|3O/|IlLøL?P6ݶua1z\j`}%7"iknx"~2t}3Q!Ҩu]5#/Jd_plt ޷ Ԟ2Jߤẗ!KN"DĊrXYޛi:jXsXٷhwSks6pt/ݷĥc_ Sd|>3<?nm̃픢ܵBِD5֪a|e <tM[3xp"x3igFdXPMګb;šuՀu-Ӎ'6į (CX͇U10 '״;༲~HBƱDr" ի~RF 0\Qr_ӥze{=SvjX&i ),qY )|Q':Uk4݃+2gh;/,[Ef$+0gno~Xh8JȮW鳌x@/\: @-KHn<,?)7]:?>iO'5e5 %O o.a4gsmimjjčQ #G4wcKǞal(7g- ZqelWa'I)\RKm:t/3Ma4FߵKUb+(y-華xR: 3."Lr;7څNY }IK5Πh;Ojf| NYE}ӆd;lG2<>=-P֌@i$J Ʌ@ĉDu'||i[ES:7򬭙8?] E.w|)ǕT}Ml,WV꣢ɡlѼ.|܊=1˵E5UypbVƒ뚣j ۺ,3'[ ; bȩ4dsz(NMnCb_UM4e#{|tc?g6?v>٤NbLi3} &OA]5Lz%&rKfN,pOHUힺ2Kr_Be&Aw߹1?ez)m8˾"wCQKmfCW˚nfٵo^RQvw*\owCr\15 2RB*8 nK1wͳ|}cܾppޏ mL媁(h@rFy~ŌN'*]-A>Sdk"pڼ1p3^+UAj6]`jR!Xs&fȪJtǐs#>8𱣜uSOoG!)‡jO'4l 7Hnñ+~!A"qs&4|'"-t㳬Z-@Bb Sn\a|Ak+vUJWGYnfV7&V]|>;0I} /Lmשu5TxkJxRY?'xjdRx݃VB9хj1Zd[DxHZ suՁR5Lhnݤ>RRc?޾ .rUJ W'3*lΗQҵD9s8歼N:eP[1'NgkZY%&g]gL7[o?7Ӻ_ԥM-n#Tk{|D6W5.]%W3]_ZXe=bR+"K⌣nڃc5*:F4]ɕɳY3~3lIx֌L-T{e_U{cmzΜj]٥e%><.^>|i{ZfT컆k;ryr /|ݍKyZd3^D<_&2< ZᠳnmwƟJi⤒z3GrK.s~I ͡󼺪AK3`K-ígznël\eɂJu931 Mz5oٵWDDmx.K@fWpR֩diKB>x/ $]MbZ+q Gg[ɼm&qNjڴΟњ+F*Pny(;gb6 iD˷Lnql<:ѰN"!vjlJp{NsĀQvWI"Á涧N짞75*+I#,|ucg|~lz4d]*C>tm`lUlSpfFݏ_O5ʇLԟ]> stream xڍwTTm6!!=HP 9030 %HHIJ"-)!! %!SZ߷f3{׽uf;OiSA"| I6.@ vPp$B? ()A6p K I@@!H/ % Txm@ $`WDhLnP.p B@m悩8H(W Ni4UR@ˋΏDrh@\`q xH;b p( ᎉ@P@Ly X] C t3W"8w0 EB>p= hѼ@C'Aw( vw;")+ 朕H?%8 _uB /[_Dl=\p7ҟ @ qL :*a eưuE0D`p; (: mP4fGɎ1XcF>a&P3dH?]P6V4^7ЗOB '$  Āb@'۪ȨC%`9x9J :HLÀHH\B_Yw T<8D? Of=h#12A7ap!#1'(P?f^` 80=;ף#>o UF@D($zA >`V@_AZma޿G(@1!@ AWq!/_i(F{ۏa0o0>J:֝{-J $@)X'33&4T[U,uNfF.}b.9cVYg>J=f`!5IV`,@a1F6ڷI8ZQi\Sk j;{Aɕi,mfp\ LCgmy2c/]aڥuPQjk'^|0SfΨ+֔g`QUU6G85xOG's9(ܜ!scʻ:HE_+ ӟF4)27f5}ٌ4:ip#ilɖWcԟ..P E}Ǜ}i͟,BP9(ishv.ޱdz6ypnpҕ'M 5!9u,'LOQ "@ó;#/ϴ[zO옊40~kQ#*ES3 O nzڿO\#9%!≀i(9C,e,xg%ϭhIt d z< ,{:qI־[sT~u"Ă'ZFpf9)m0?m[^ \l9a]#%fǓT7vr+mjnۧHg]F>4xCEΦUÂ8ѹz}ڦ#kA~ͩa5 oqPeXq:)E}@ޗObqqRGAknyDby%(cjz'xw`r1G#rZ$ݺa, 2w/{r>oҎ=%^?t kZ;`x .x]-Nsf;S۳Y׃&r_, pxg6i;'UekZO)4|HW H@V:ZZ4y)Ѳd`9_S8`Y[Hub&Eaks%B)!r=ۨ hҞxSW] .V@0U 3i&nnc!wZmydyLs :?f̭<&*o Nlgʹxkl{BT*phxOL/{$ǰD&xE "K[6>Gf0'cC/?pgNт,gQ?:I*_hU+l\Ί?Ӂ$u5p^`/`~Zd^(<~KfRpqO۸|vR>جtI"{ۋ*s;VbO`@Ogɐ\oe=9NL":υ7Vm(J\,},4nkv{_| $Yh>QbH'dpGn9kOX&>YpOT /i92f-9= S.<D{_ei8Tг'#U'c$:g5AdlT_o_yj%Pl#"R,eBmda.D `|Q$/*q&:mx(k%/<1AwxC'&uQ-Rw_+ *U8 zN }?Z,a&ANhq}O.az =%rG#Ob#-߭ RO}݆CYZ-qVmJ!kA3aC}斦xߞ\T>?Xx`9iM>W|uRpT wu*ۢ`"xB77L5I +R'Ia!s,TFx^KѽpB^un3i&+L#SnH Qij8ihrl~QwpŮ+vOQӖ.Ɵf dǐvsH{%IA9 zgn֩tkEisNq; ө~mM8qgZq X`O&I5%|)yjy+ gO.y؞D9<']+Yxk[׏^Iv\ Vht٭.NXT Cׁe ݊s}6m7^@L}kЀ;ro&Y|yBjȻoVm7>SCfU;o4ZZRT 8 0ˡ/wݸw X!an`ȕ/S7ɨ _*B^Gg8H`^f%wHvJm1V"K<SX*o=e pICk(q;FKO)|3~wۋayy8s͎>3eK׃G<@n=9^5I"yȿ3:ޫ=p[m2[H4قdf6S Fy,ɛ7ePܥ?7,FA=5T#4\nwNɄ~y~.UՏMsP9>@b)lSC=Yh%X CzPЃ3f\H+e(@1\Z,&jj̢t'MrBH~]n,MOvժaARnIęgRf&B27f/]ͦ8 y.[LNO;=dHMirodpTܡU,tC'&t o?˱-a&2dJ>py:.VWA.:u"4^NfCFϣ> X748/}uk9Pޯ}UH2䒅12UE~Q .ʹ^ 7d bv~+;i;vWu(sq@Nb 9]^4c endstream endobj 204 0 obj << /Length1 1491 /Length2 6595 /Length3 0 /Length 7604 /Filter /FlateDecode >> stream xڍxT6EHo$Ti{"RB $"Mz]RAwA@@s=w<3=dXPAPkl@Q! PAppR?n00kSc@]D i4ܤ*`8+B!ah.e#IIIPt!`$@q`+B1 aWqPn<G sA(.?ԄH&p_c=` 8DcCܑP[`w!s8_DJGC (W0t0 sFB4 `;,5EC?4 A _*rq!1h_S s\g$uw6E4U`&`8PJBB= ¿ x~;}]Q{, ? E=`;?\@(Hgǚaw{,X_=YaE!nr*)"RA) I$%ogwQiHE{z ?cg=V0(`@!,{Gjo?_v# zv`gCCa . wwo&EV 1!_v8Z 1ǿw35p$wQ@q-hl~`g]U$5"؛J *[a!$ `9Qn$+&#Ǟ<(#Uaܱ}ۊ5@aWl#QPՀ=6l;H`=w3 [\XB!0 B27Ȅ9 k?Qd\K`)~Q(K}-~$`<|bƏ4| jҡ`зn+0&JuhBakoɓl>sXGtFU'z.PrJɞƄU}bιxHw2Dt ԡ5r`U˳RR5/ S>1{OBstwHUցF7*\(Kô+&5oļz}̔Lfכ/ +0oJn>[,VK&֢`_xϣ;~̲,k~nFhxME8g#w89MKuOv嗓]g$= EzIևQ&uw[ކ%-|adρS\䏯]$<>>Rq\8]+\QJٙx50Q>^\|1B z7('av䥘JS@RGE gwď,?]4nM=DXlY?>H_kBpu 'XeɎq[ 0(Jt1"Q?ʔP/@gWe׎s<8+&|+910?&9 N~uEͯO} +9pB>഼_+ Y[namt0 \eu%?}wSHpHcSJhN*`gnzv;M⬽[AV,37UmF U@>(g\(l;uey?bOڴ#F[M-?; uĩޞ*<]bli$}-#13@G2%c_ݱW's1ԭ9:ZN2=x?NV}FM̕BIXi9Ƹl*> >5oE3g=Wj[JuiuDKFǬEf(W{.am81?Pr1V\jl7YRT q^%:e>ƻԀe(o{}P'-#Lg*PKx"Yûb6e)Z9B2D۞Ϣ[;wu_ .ᅺ9Ia~-Q*X)-U]_4+.G<'{0۬݁At֎j\X{Gu YD?KK:qL@kbF8A)?]*fmlZIʩt_˩U·v_H{5*:D q%BH<&_28_Uv:4K*.J<>P8SN-~[:߯i15dMM"4;ڳ[Kcp -x̊֞GmB[ &8s 8a""tx<ɷ/l0㔜BAΕo>V3!>t/XE5 |¦^/b,hz: OݎL]r[]Hke 7)(Ryj^*i{YouXqJ%qdX|iڀ?(&9h7k{pFuӱu&)T :KZG*+˒CilBH[~8i OF<2?=#gKΒR翶O"tNS8PdiҤYf@ma2&`a(g5WFEn6zY+UPSpGq2PtŐfK$PJ6I䉕V0QK^-'Jϧݞ.Xb&>8k3>|)wS(J1|gy__1s8OFl9`͵t*_+͂IW9[Q~ʇ_wJ#dž-v"ᆮn+IC]٣3uQ=F:OwDZt{X͹Aܪ'j_M 8ڴG*'-:aJSb8)K^H&`B 24/.[h؁V4}=C-&OIJ4ql\,xt^~U mNR0$=X6 2p OUNAo/zW($/;(NuXh2R^'𜪸yիK:StH֋d"eKu7S>J71~5 ]+fTz/:aJCWd_ _F qߘ?֟Mdt!yWuxȲn<'t{Of_;z?ㇺ^YX|Ubڑ[E= 19&SdT3ȕTGя9PHUqdw;$+Eƌ|;Q6/OůtC.نٴ9@3F [%A)Cu:XPldM5V=5<îWm;6;"o)0=5c9 Z?t5C0% [V'zth?G5E̥٧7(OD1?[ *Kz8J7N>'̐YLD;YܤEK:,HHsQt5kX#OVMju-bc鍖q\,N8 ?O7ETs6,W੷[FTHGq/yڌGٵEG8'9TXCfB`馌NKaчiiwa"o[/M6íf^x$TrO\i2jx_ȶ;EqZtpe2+0Z^Ot.9nJ㱺8b'En-9v0pݭSV)FP"A ^.yk19[vCmclx'm=]!c&i 6?IO52jΣ[b?F'`MC)aqGrs)10os~o!~Q)Ӱdh+Tm !̸wHȪeA0-7=k/EC^ EU\z>\XKKHQhPp,u7D.`jxDӑ٭ܕ3?*c|L,kX0ᲅ` :J$l* {57w(6(V 4uF;qoqjV?fTi/HA̺[VIRx"l2=xλ36 wK4%f-=\7Zv+ߨ3mw*YW6*.cS1Ֆ ܴҖ"8YP;ޔ{rb@!fZ,p%(yG?ixw'MkWBIfKQ\'rIыC2,Ll=c:H %OWT*$X]\ߐx F\  4y/ߍoWq[z/6}Tr]ͰxC\QBq]fB(F(m *旳 ކ4U+@֗7 JOV| 7LaUU\4 ;}R{;I|j[z¹q|pG?jOPvμ^wv2%bz $GDjy093DIX#dv!-qI kI# m'yj"3Ce@J@Ԥ2"zwŕ8blfMq+,COZy?TI4Ȱ}toEi;d9],tZ:pW9j*+sלF׮&[m/v(د,]9c^=TF[lqsa4;vuFiҟtvb~ endstream endobj 206 0 obj << /Length1 1439 /Length2 6339 /Length3 0 /Length 7322 /Filter /FlateDecode >> stream xڍuP[-] (!tK!$PHB tH"Ҥ ]tG=|w2{=eﵟp (HTn`j% xx̐8g_0"(CpxLQ@]wgPLZ^LF^T(.**w"#Ԁx a@PcBP_g,_ ! OV5Bb8,tEQW-k`h8 :[dPhO_ {$ fUtshpPJTNZZRw½"ڛy~xhW=i|8qW11 H?0?| kO (ϓ-^^04?+r[C]S]^@_a QPLLV (##w.oQ#É yKYFZ#}Q)Q(KKo%>mwga# qA:{;o 4Ntw* $HTFzaFHᏐ~g$ n"qUû`M}5QP4ĥ  ŋL_1MapPhGc*`X'~xm QxG!bPw rWf&P0aGժ>}nNꎒN=uп5vVqm h$btҏUѐM{v|Sfږpnn;~fA ˤE/l>2NuL{l9y.!ZRpފ]tPs~#{keCO"՚㘏o{$v:+"}t9rze6` xդKR9DC;groqK7nA n?~1gx)Vy#*t2_Oh4(o]`{ԫNENˢaѫѤER ,/yUOFUMlrnQG2V>X3Lv[atgϫ&"R_ͅm 7&y/m`%_ ed!U8"zPTޞԳl]OͭF9Ǭ 0WRo|紮KHcؿBpW+aw0>U6@g)n?zwrbA\hUigw C5_,!ыGE=@/ayxylƐ8$w+)!{Zٮ@ͧ{쵇묵E?@oo ùp43Nj DhK[繨]"9lJ b$$-.1+23[qJߠu1ΐ[W>w ^վqvQ$ƦW1djd{ZL7mBP4B|\mn [&ZvZcLh('!jIL42 M5(桳`Sl1|t]_9x"k+hiyRE%nfx\L jO,G·|&kjKݠrٶ2Q~ݔɡ&|כ0hXH~H.h{EHPϜyesg>n:gB | jVgMMHK7}40r]V ݤ㮇Nu~+Z$)=FuAΫ4Y%ZGcn㙳.K]k f_̵xdFSu$}=ʞǧOHΈ,S ]+51.%d\+ӫf\MS-K),爂:et#J!_,_ ~xV2%g&$:nzeZwJ4@b`b;U-'|#2Sc@µGДa`^q. T]ejtx}i!" ro‹=" Q!zKϥxJsz~1Uyp*Zx8=Zcg2gGQs,7::~Yk[<+/pLS4+ώbDsQҥ[^X7@XG(-RO/.Ɩ\m{a V& ?PAT;B=fTesTvիB5ůNdپ4Ymٗةn/9O {հU i ԟ'>WJ>ɼL֎`;0(g6ӑ7gR8 $c3N 4C{cB[M΢觕+;-UySm9ߨWWaPȅvmXkj;E%1l1;:sf=B{X"7`uRVF?Jw&"{L5u|єo~b^0\jNC1ʎR-.ò#2{iLb=/k!/L] 8$GxOM&f@.>;pAuc59zl16JP\Xcww5|c*&:p5KiIFbRđ'C ˃>Q#"7Xq zYHCDs`񗣺o#Iև'0[)= d".fQ6R旓RS{A|tx L,*k9Xs" q *-M6P;}Nn&D k#v`M3U+|"]շ=6>6$@jMhiuGF4f1pUʲd [c!5aÕ?G4O@K.3K̕룹|&Z#4U*u\,A#a Xɗ-wsgBKރI lI_bZtgoe"K`Ś'mU&^H(E$G'_k#uNP۱AZjC,z=!HE־bkTbMqPn<%m GCamI`T&b^ي:h,CngO+cuzWlͧbj;4pԨyъQ&vy?nq}[ߴ(u~VƙQ%nZ1iETs'M [jOQ{"NQĊ"χasF k^U>G-3]?OitLu;@<6b֠3=0y3U(vݣ [J=dO^rSk% A㠑6S_z 8鳯)eL.)Ry5?%097\LshtRwUڬgYi54>v+J/{޴HŴ.^=f5bc3lMoH9 y28iΔ'5Ui&!W7=*R%^hDO2$1q!O=ԮU~1ǣۉB>lqvOyc>YŨUyHB?ʈݨEMz<8|"FCMdweYseakuJݩB_!./66v׀>˺俸?)޴έ^K OMjC;sYCZBT qa}yR/32MHA^{zsUa>aI;e9ԸuCGrGMΞ)%FtzP'p}|JΎh jakZfNٖ9zT ]ljV7X_oPIOxߪ\dXGY1f.S]*Rj').V Iqߎ 8n:Og}"fAi?OJ>`e <u5|?,€k)ы:<}gO&U;2ͷR9TM8*}|z;ś6u, ,I) uTtѪ1 ^&Ē2k v4US/߰<x ["e,e8ʪ D-Y=^2n43r o~n`^UN$Ld]76y] ^:O5Y@h'losMOqh'h쥅)!#]3 _C72ߢo꥿uxt$t8oB;{ތ\[%|.y|p3gw~zD(LMω=qw v4yމ-aq\23k @N"I~8z,=ICoɵ fRà[_Zw]y%?WCP% BuVGm*Bc\ՕN[^e/N^p%ncw_zD3 r׼F-=iy0*嗕mmeyM0<WF^~}ycˋ^ox &r_'ߡl鏜Fқ]V#r/kv4DR^bOSsQ`B4P=jcNEw-f8A 5 [}4zL|v{T[tFʽl+\Q&|K8GV3VM^E+!Q9S;6x$r=8[M\鮑f"D蛤9Gy;;\]hzWV86>_!l˩\%\WS؍pR%|#whM%rA+Xi0b4hZyP dV(Ӌ2ht;TsҮ@Lcjp; _aQߎwES|mX!¬uSHCMPшbkF7CϸҐ '$H,ayŝLϤ{Ea$|n)^^ɃO%=<9_21tA:JmWn><]f[\ZuN~uIYjG n+]8-Yg2Ta:@ɋo EI?[WΫk%K/s)O|uֲӃۀ]KԄ_'DZx[%; /6<9}jB@#>̷pA~:ˮ-cBQd_"A+B,iΕ$v.V ܏!?&}hB?* ~|ũV+,R5#B[I[hYoH)me*䍨%T,˲tǏ l|YrG oSh_]W gaˬo}[sУIJg/)lG7vUn~`d\sӓLSy]'Qy-]Ю`g`8gq;+5)T8a*{Z7Mokw{Q(0K?@tJ*?? endstream endobj 208 0 obj << /Length1 1903 /Length2 14456 /Length3 0 /Length 15633 /Filter /FlateDecode >> stream xڍP -][pgep .!Hpw < ~r{kfާ^ݫ楡PVc57JہY l66N66$u9'3ގ_N@cLf`ob`c`c@dP`|:#ш;x8,,oy7e~` j t@۷65{S?!,`>VV777c[g{' !&l P:\f?J(.n rKfov3v6 S󛋋 &+Pre,Yo?t665u0YA6@< 03dclf'uc ¿s6u9YA6G6KڙH9MZٻy(ŁUMpp% =*`0+2 y9`'׿f S0hC'h~;';@ml|6afv6yĬRbj.J11{w3'7 qہTT7E3U[SߓA07<7%u/#)?mA6[ͳ m76jZhjeo;"jg6\,l\AR w2lj,0r؀Π?7/6{[=S뷻T6JڙڛNNHo^ojts,v7[>s{'?=7U_U `/`qXeAoQA 'U_gzb_3yk$_-_?ſ _俍XZ Q|i|R|Xx8rm1U7*o7f.o\ߘoT<3O.NNoW6l@;iqޔ?Ȫ6Z؍yw " AsGuO%@\3/rAsWGkwZ$b}+6Ñ /#N;3 &+i|&ٌiڦ SxYPƢ# xx8QD3*jDge/DƎIz9J AićrWB_Miv% Z>ӛ8 SgL\\D˪Z4o@BoQm ~s72!Q^MW]V&-(ܳ(5;|dsrtZp:weKyIS@X鶟j DV4ռj8F#' 2 z#U|'#ҼԑGV:#fs}=Ña=sHY5(j)E{C}?6EiK&3es1'A$áAuPaO5A)6g5#e>9L"^au}Oׅ#>uԖԹ^S'](kr/|qQV%xx7bb;/cg ը`19 @6Tiiƣ;sf(󈱖e޵d/""dӡ;r%z} hWhOTkLA^!sOC}=ڪ0Yt+ҬeEe,8 C۾$]췢Was{bo_#BŝT *qiWѲ"h)Tbw14|?F!8CMǬy)2%#5=,7KIтn34_$>CGL)%Js$g3Eq9eUeq9cP@1f=n\>Eovj,O1\\z~A~ erqP aR_麤u6rCYZnf=o4rkÇ*-#r(0d3-Ϝ> >F)ϟӤKX-'x 3AV>vzQ;nJ&>mW~/.:{W55ligAb52KLU)5kC/P̫/A"vz>Y&bKm{na5 '*k`DK!WڨO(h<#c;8;PJX=~Kf~폁/w {E  ,^g ,m> <|iQ|x`#G?糈˪o~Nk"Aj{S,~Aҗ^P= u fGϺ&$X\ e(Vm#x: n>KoINmޚY _Eys˿}R?״Xmԗ]\%?M).Y#+ࠒ5Kϥ_[k"./ո #\PM[u6>^o6܉P(h7$ 'A#(w0i虣E6u4LJy siW}9 *͐*ϢUIv{rSGaIfqrQƙW zfBc1G?TjƒY?͚mVB"v3@Vkʞ^;d^a[k.d҄I|qc_a]1'M .d$@]bnQ$ԓWԠ~㩆C"Zy6IQ,Y_"Awi4N? 5=Ov ðԻ}TRG3YW2 'JJ=e]$q텥-ӺyKc(&~P~iI;"!fH욒XܝWu{xcbƣԱݭ|KP@ܴCZKތʠfvƝnK%1%Gk9R sIzr[J]+bQP 3r@nw8 2o:pCaEǶW|#lѹ׷/hp9W[ ֒#vQ'φ8 ..܅Q tV5+8@a#8gnmӣ&r̋ CCޗΎ5ڳЂye )\mq~y$M &M1dR@(!~=!3v:3p,rA@;CI wmtiZo$q5X8>(3T^5]062lp}yN[pk 'h;0>a*Q3,e =Qvk׸c){PRv&֩9^@*?O?qr6hSt()tt`tj{0O )-u8#bŏ?qtXgk ɹ #nz:Z9J@LF, %><=kD[2B;M$₌phI6' @@ƅv0נvZzT:Žun?r:kZIl&*g-/L_{=#':aVѰS$Cg Ѥtp$^:o;==Uc#d6oDʁNf;-)g׋nO%(6#JT摠;u#~KcF;Y %Z)#[l ͡_k@eJ<$ODQ?eT2ɋi5zpAͽվXVq<^L6KTV><z?4hqd kuR&SWQ lV1',k.ۿCp˱6luu FS,F/ȫ)rwK 1QP@Fg,j +TWr3`34D:b`D W+ϐ6?+dq{_lOS@}/mj@]?凋rn6M 'dd+E$U5g8+2g42~X(sqSX=#MbuCf+P/ ,CD68 :g y6p8;ʾl x4>7л?;;6cVMCgѵ[FJ])R T_ |7^OZ**N\!r' d~~92֒ جvtX_~8}tՓ,螣{|6x:qE.hA&[ּcR}-k͟xZ5|* `UO.V$]dreN^am -'N~-F:p>?Ǘ#kJ?)zjYP 8c݉{5BWR=a5uz3m'O^lm>c~;].uc&u.uWLo?2z@BvZ}Ů)؟Bѷ}$fwo.cl!˺JE@6 n;e)/Og%zx_xGNT c4HNmݕ*w~e1ofspҸD5,VrfU 3 ONVGoU-4a!̽H44ߘ6X_c#^5|S̈́":؝%q|(VpѹFw(o(J,IaIa]YѵY! WtȻJ}av֗q^mנB~HHе|u2nZK'X{FyU;@:@L2Gb&j*avi[ ؎nӑI|\&mz Jbs ,^]_2BӜЭVTq_~jYgV{R~Y0cJ"I2$4V%8Y5!Z k.d_g|iu/;GTذ2$KuVK$QB& J\(kW[Jno^Rg%ByȬ_8C `NT e$`?: U+:JP̥盰 w`F~]ՙ?U Xz7#],H/N5ղ`2e,ϝKʕM#fQ~ ֖Apiz#L*Q)qscQPFEfn#|L^9QsY9cÜ W`n@7%)k츪 qޔ~}r .Z.֮^-Uh oYs 1ɜ}@];to}*l&VYO tfS- ?-g(D#ȺdX^:%RS'+#}Wd]|zw$./S6/:b|B/N)au@2'YNhEs4}}*~êm if㾸w@f6U~I @r01-YAHE/u_wx*n+FSGy.qm+8#쌄WR gI,?L!4CvӞ%E \9(svd0*,IIr: )ZY37ن?v\HYȭzٙB/n&BFO$_GoK,dzxNd 8qOڛ9DDl5Z)\l9YEsjTŇyzF3 6Gc2Ѡn ٻw& >8k<({"\w/1%Sd! G!lY 6oJeן4C#do*wD~g!0("%"K\՚6E(d;'5$@Q {6Nf'cT^ !ND&p Ә\$&'X D6;Zg\P*Q664ThމmEcu3;RMylښ7L+&j&w3O}"TيSC2Lbܮ.Y QO_e -[bJ+IQ&H~@J|*M|i@`ksCmg,X;(1>.jtkZ#"_S@vJ!Wmf;8C ч(\hud/IbzLL܏)-Ⱦ>aMUxWSG#^c0FD:ATrTβ-$="r><,mV"*m:uF痆A'ܾʃ]U p<,g{k+uVh""ku9V 7~]p&؃ZK{<#""㱫p%(;j*mhOH["@:#ca+"˪ʁ;hVڶ%gK mzDaEZ!ސp"UL6tm ~Tgz<6>ˌz-8Jl|ϹQ<F0 Y~v3+&y_ kJMPl.U"gAB|iǠre@hvx?Ψ@tfHj^ Rj{I\0֠8 wBrTb6P:㒨r}Mwds ";5j8=I>~uE5K/4}BZ{ Bth6!yKgB"߆DJ8 cȽe7Sk`gi_xNI_^-mLbrbJqPCT{*trN뇠v<4R:⑯RזGJ9x_|Ȧ3Iie*̦5V0c^U vQ5[n֟cREČ$ݰd)>XsBNڈ44 "t84n9oQo \+[hwɯJ/1Y%\q_:ewWs)C$ -o/WO>㽢q֖ϟVNZY ہ{8,z *uWgSyώ$Uԋܸ3OQ\8@ .NBCJD7$v4e+ NxK.܋,[#OyQrBozjLEaKV&sڵK`WJnޫt _e?g̲wǯnk X@H EPܚ[v~Xv8 VG$l{?84*.㼕B#=]M,K8%r7ZML}ݻ`65m&'T\=yG.^ӸqpG,x2ÑvIR]RY$7A;(zHwY)tqz{i-Kڔ*75C+MY#>rIQl'C)UCP&O=,م"J` >9w֋]H?u@0s"6cŲt(;A)/H C[[sjٱk]sh0֮8c耫BM0LP xxn]KP O*C'4J:?KGq<*pXЖGxP 4Ay묬$ob"9q:d׊]=nHOnֈyXܨ3 vHL*Ói[.=xIZ;+"x+e}&O&#5vs.C(ؾ_PPl4ŭ/`%!vA63L9XFnԼ~w^a.q4~4r|aojILhبyȼ~@4c{9N'^aQ58?kJBſVwrK]ȅW6̳BΙ *#Lx)Yg^Հ7F`Xo,Uq3BCˢ*Tzr[_hy67>N&HHevҏ9TU}ަϺy>HFfQpFzsN0C'VPKDKAvf ),WƛktE aN]$}(M{Ʋ̪.IDNAu<4Aև6b s 4X[˧ia=u5(ʑnFkR} +s2մ $JIrM;+G7"=-dlijBTy&'<IR+J8w CMe5x3^q_1if"^DzM:jM},jd˧fU?S͈=ĤZYS!؈)gMun+}ZTO?9Ӯ"A碕8Kӫ{ޛxB&8ְ!k'i"i? WHǼIYi~cg/7uFv-+{W#NV{ Ӫ(  B5SmY{' SOcEy]BL0Yb /%rxeP%}~QA4*ğ2&R*PRѪ\ ِ1Mg51z&@ZӘ+ax jΠhg 2>KB '/R ;ӵ:_CξG\Q޳"i䢙viIw;]bPxd`*|A;n\ ~]MQg&_<Ug[npf>OPDu~ꆿծop5GLu#y$i6y,Н?MVY{Hdř5ĄXvazZ^Hi( <׺;]Q% d'e5WDҔӻAscEl(p$2KZf#+v} <fM㍊Ks"7 D٭cʒھR:XC[m5N/t~Ai.[;mi)*Ӿ4c^|q-ΝRfТBh%p{X%X wWgki-4!O!pP5Wh^ Y3b̂ŋUa|߭I?y5 3'΢[]@Eze1Cܔg62f#;G;'>4̘ߧ <.nOЩ1|;PQr\J+.V6ug_JzZc@YV2垊2i#Ey$ᲯX+׵vlv3MxxLZK}N>I. 3i45F(9mhiQGQ'-k%ep{X/wc^ Qi ;y7-GcU%^JRGV8~O/_Q^D.b+c1|_7t;,PԹK|&"͚׍זȨ.t !ЙL~I6dd՞=sVeBdԖMD%:p ~ye3in1QuXף~ACCS+AL2fBO,%N',c{#Lha_p85J6ؑë)񢏴wFSU Я+(v-g*WG̱fWr  DP40`vSݯU#~|k0 zgMȞy@W?Uib1qnxJ) lڜtUrPPDm@>Kd1_}57?V`>bjz9V5wg!<"ٛ7C0/13sz:.KY@-;ۮ }t(\V #yo~iUbN0BN"W87onWI9.mp-1zӌd"|daͅƟK?t—쏒8Nn1 ;# X+=آ<;LZn ?14y$4Td7L'm1g7ɬ(9bj{lꬴ*k`jCʄ̅Dr_qdk̪?wVm_u?o˺u]`!aާLqpG*WS[*HɎ?9+݂{VRS?MSшD)ҰXnѯt ϦB:7&v+> ( `[Oem$&dh@"fےX!T72zvD +㓁N4Fj0+Ωc=M8B'sm_h'Y 32$Uț]9Om'‹("S˷zQ\hI2dibC8N9i_1,3w* %VU)u<*dS{7N 5^+W@rAaeĢJ\z Dfž9}ۉE3ϴF/G;*-`66 /&~jLK.Y&8WJo2-HE:uw/WBQluET.m jsyUBlvWi֍o"_y!.d̜_L!7F 7mQ^/$K_ |ϊc#y~}W2%رqT'Y.)ƚ-*wyGn"įp1c)KP? u2N䅫M|収H9Zs0o3ϧ_Xz`\jSx)o.7yh*a#|T²Tt ~=&k3TХsQ= ٴXj1ťn '`V.7/ _{їXt yCTCޢVNn϶o7a&U9C<]daT0L̷nA@4FB&,OE>bԟ($ (\E3g?ɩX-`f%'9:h 5Qd ?TiF_Ib1 ŵ1۝w]l)HWhu7f|HdqZqt;)Ul],gt,Nluö4fpeJKum/m}#Dp0f^j1+Ճ*9hm|z ۧQӽ -9j߭ڠF7ȏ~.5]ܴ./),b+ = 3ڜ<^lguDJ1”ƏRB%0¢Mnk`(kY IqyX+ Wn!3F#i*=i'&KY%t_?qmf&ۀ&h6$n pԛxS>.LKkXuf{^]G j-J"qj endstream endobj 210 0 obj << /Length1 1577 /Length2 8526 /Length3 0 /Length 9559 /Filter /FlateDecode >> stream xڍP.kBpwP $ܵ8XBq š(šH)n9{3NfY0hrHB 0[ ``1^ݡ X_@+ؓL dT<<|AQ!Qnn/7߆wQ' PP Y;G GDDw dc[.Om_!`0WQ..///N+('^9tP'e 81z ]x8l`蓋xUVhik8Nw g+؁M5N7`mh <[yZ ( z6 W r#0OcB\\`w}r w}:\'0 7m~aʥyya#¼"m;+%oS~WSj =~V7؂l`k=O'1Ot o xܿ?y2{b-G̥h cWQ@~|^7@Hq3Ce:"* ?xߍx ֆ4 O|)Qߊ<3i[}xi7!O_S yVf#`'ssr)A@@[-O.}O9A` }m@l g?]zAq'{r<c>XAoHDe.A_e/(rp9 >EvE >pByk6O} `}؈;ֆ^UKSxq=9C3ؐ'*+~}W;+9{`ɐ|?3Vdz@fal'9$ )mEqϕL {X#τۤ*ej'ڕ'/FS+l_g ΗÃV3)vv]Uϲv$3Z&6?}zl ȩd۲:UO-WqI؂H^;K85OJD:;#r(Ykm"Ve/4fM%vK?z,6l3Gw|"'d{Up,a̷(J/6W[4d=g2n ?6b2dQ +t'2Hi![#bzJm{/c&]^DHPhu$67ъS>ѢT҄ݢPhTteQOF79M\7s_Kn2"9کT0QbYDZ./E6e7[K{#$7+ +mo!/[V Օz:4^[1i0e CWr h/-f1=HtKMJs~VU+e>k/:jC 68vS>əpSõK%%U^ධa.:q܌kC a?&NK{2: 9g'~Y(3^a+&E)5s(hqlCjcH>I9kkfN,G1EOr(Vc< ɌT`ij9@2Fp-JL-ۜ|f)yx̒ #FQ ;sq3t"I?dxn".糄Nz[&q}> ޭT-^轝P>}al$[4S4m\nJ2_S^'?9?j~[Qz2U_YE|XIlWFCҦ Vܔ H[Ѐۑ8RwZ*bGKw1~d=N> 7wv-$^Yo!ys s`"a7usBV16;ў E{c/J8%D̤S÷o+AXW. 9EC־{y"> b"D׉^NGťN:\wG q S_#6>fĽ?TR8ħ'=g#.D 0}{DQK+7Ԃd #Tgd.ɬW"a!S6Y]̧Cҳ>a2{]-a[ZV_h ƧTGx;X]%d&o>0) 1Ј{ "@jGa#|Er-欷+Km֥n'R]yڧta~_X*F ɛq C|؍~%A~G#ChFj(Bx>xމ%(2˰uqx 3է}q3\7o޽vKteN|o©~_iG7Q5t[;A[sEԇE+!qpz-O*ZsgLK^9R6D3uV SsMN/ 8UO,ޜFPp,~)GKJvl8]d)K噫oj"Ar0M ns^ƒ[{#wv6^ma2eRh2KQaE`幱7rp SC'ρ7olAkHao/3rV3M;F#L+2W(a÷d^|{,J2,ueK2?udp8W|2eXAtOXK#vLg|X¥ޔHp*:Pٗqm%gI )hF7D`=W2-3NZfƼ2{yr:HхGfpz܋wÌ Fȹ15oc:,텒`4yxgAx {F:p;$Ib@\Fwimn:dbE/ df_Y /VÄjh^g8Qk>}`z HP(=2F{vxCmzt{RnvhX 'RS6;/>W. `HhD NG~#jfwa=gEc1~f"lvbb$5V~F\*v +9(P)s߃+*k\jdc]bÄ)N@U8Z[oX >[QK"o7&H@=}— x鸛*0U{I$tSIJOHpW*Rpy  һhoϧ+ȕ~ 52=veVG`EՎt׵ӺN܌t-_";fǼm%0?Bfݨp{!m!0$sw朕m׶}58ĐT'|R$4dOADc5DzOeI- ᫋:"|b#z WY,(/M7wLU"x>{—?# R-z"f3Ra&'w擧yPqZr.]ꌼj6rq>}R3{XVhS5G<Ҿd zkDTeÎ$Juf-\6}GC*e.!}qر}-OfYߴAřy2ᣮX_`c]M/%o xl j'lvkjxF/sodM1|XF'r>qYkjM)м>?O;DqOV(fiLNN1ZZꈏ`ai3m4]U96$C<rhսԏ$m;cdf* șE)Co04G69o_д`_ʘk!RAˉLy'q['CwX]C2Ų,A?ؿV1>䁜Ť,uh6lDi2%h];L+!D8 7 ZU(a-7MpHN^b8B0,,*QW.(&%%[~:o[9CN: Ù;O侹9Y$yHgO>s>AvU؜LoƀΈǽjEƔc,F6PZ[zuS4t2;oSc)5VS۵!~$Him[#{UCʇM^[Kʯ,}$I`_Is\{̖5Ny]%%Qg@P&lⵆzb ڡ"{9gjv‰[j`Q4NSM /V2B &SY}bt>^tf rf'mL3:DBѴn;#|$eC؃6 q?3.sOe0% K^N9;!҅ łcǟhB..i,NpJ;;xBxHC7zg "aQ8q84Qa}*yQ%V3itㅹ1[դ [}wq}S T.|IFi,x>vuE EZҸK 6LHIu]RziZ:՟V;u)dw̃ė\C"}钼Kv+p,{j<6叐3k)s?}"VF A?fYd쟾*vX5n&MWKʪL Xdk^G"Q>bg6U̅\f^\!V2x@I GOisC=189^ĶDQg]8R#KaE7x7e/ԆEdCZI"/s+ E[dtQ={bz<֍ v`,uapo"ܸ3I=Ģ_Rq; )͵f&WӍ5gZ2WS49<kNj;Ԁ-NTorzޑ;k&>79hQEC "6&wB&p11+xТ\HUX_>!.qըQ2 SHR-4#qK;nm^RЉW\-_-krV$b3eFqb+]-ю)?&1:f Y0zR$6\kw]=J-yDY_rxZHE~u-p{Օa*/jW"7vdǓ}hүOVL4>ӊ+Ƶ v!cNJ!ٖ!A=py}EmĪGtN(zL>s^DU\+0QPCg2ѡPtzm"rQbӘ6N1V5n G肢{h$zZ5W%EmDتnY ia~vtl<ɣ?tmfg2^;a<dqB w:cc.JR~}F_Ҭ]6:Ov;|+ٔX 0X7QKhvٻ0d0N6EHN5t9:k8e<(vTaP.RˌH#^gMe0\澔n\%)^GkX4 E?OeE휋oj5Sd\}lx\mwc\懝TޅnKخ)z͍HmN7:LWbυe;~?.Țp_%7WfmWI7]+3WZӱ/u0HgWyo!@*MYVoqE GWe2mK7—y~]U2msMobփ>ς3OdD)p&=h^R_wt-DvRw٨398W]!FS߹"]^JU4HEw (qSr48eyy1D1/]u0DZa-i\(.VVE[[D`)wveo7z0`{ \1_]iƴ NutǦzӠw "O lP ԬRDx j'ɔ|H~I[%D*+_uKˢ&~VCac]I5R8aLFWNdXjh AkG0рhkUձ{eu)[82 1"(~ qf\_ƙSIy'hk& 5V:ShܧN٪*\^x˒T 8Z_C<ӡ ~b*fEuZ*} iU]D|2DT.I&N Q^,Ȓ1AH5%ּRqǚ& &|_> tط~RCK)f:Э fq5TYgTtF~!]UYx"gdW>T%t}#װZ24H@U2\Ɇ5`%Iߵ\>УSxw*xs=8QL0ZQKtƄ(wGx+qIg8ʃ+SqCجH(ь'UMvZ 6Ҙ;qv}6FrZ>qQ7C03bz`M }& cLN/?hNyilz@BnUZ`˵>H]:g$NU+nڴ6!F&E71c]p":ox>>:Y! R*'u|ΞѰٽ"rr*rHV]IpLSCa C0dsl snula9ˏ8kP3I8t10:D 4ɸy@(Fkv~ r>l@6hߧJ WvTy l_Kx<2SLF5G*dŒX\ 41{b3yy"Z\’-mSJ6 =t<68#PKN YjZb4v [t60«D bDll/_ͫvsr*nI;ɚZ_z݃\,͇}.w) Fz-Kzf~ԔYi>zMihWl{m4o}}i1&ne(-2e7@)#qժ'Χ 5Ln<3{`POh> stream xڍP c]7iqw;w!; n3gfUVWuY{vS(0%lmXyr,ff6FffVx Urx u#ֆ_@Cwӻ @ `eef23ց f21mmv 3s< 6p: mrN@ƆV[cBP;9212Z;2: \ANe#h2@5Fx 9? [S'WC ]`288ۘ*R;ec@9FG ͟Άƶv6 3) Petrsژahhhob24z7tC_@vN ?826&@'G?9ZغxlLLalǤfwJe.Gftp033s9 T*YszL𞎆.@3ߊE,,h'h~ 7xM}Llm1EDT54RD ``ecpq8y8oTWm'ecj _sA74 ff7+#ߊ$SGoh r}7C}?l?,49[_ۘYH hr26sb{ ѭ@6@E[G WNq|??Uߌ6ƶ&+'}X98,;jtsL6N.wvS[?$O `Rp F%7 -׫鿬gVFmޛ_`2|O|/, mnb/Nosw;s@&X o/NLDxwy?߹S̻~f~OYo߫{2uޕދu2t4{24_/_19|>ym.]pq|o?Ez'N^`_S t/ lwe矡Ha\rhs~DIpNF]Z&~ҙJH)( u3swZ:991݆ZmY{ Ɣ&U`^B^c1qj7_&~ SQE1{S K +Yv ̓+AUDzq6V9rj8}Y6TdP`< _WIt )ʔ醍(|C.S3J[M5eT{K{}m*6fORL'v,a'R E؍)Ûy F k6QzC3rM3n?*1GNW0cL=:82?3U{ML2) CUBZgXRjD x5]XK]f'w/ϥH|%%*ZLa:PfM'ڸ,}>-2|­psIR[;19KgS$WLV Aߩ?2^i!}MxPIsJhxM]D@?a58ݣΚ$wgpjo,88 %coc O2Mڇ⩭NJ4$8OO7 !MJ) &1d&f^wceۢ9!?X9-֠ڧ {,EepU NB[fBP;_,im>\MS'VPA[>"Pl Q deo*zI*# q~d֌]9f7Op}doXZ:$_f7VdPQ{;MzWSlȕd;qձoXu:BWÞDԟovXPImiݍ-Uf9 hۘ6w'}v~/va @ULdLUҼ[1U^tA€3L/)hL's˶,>Q^t^YE&VTF#FkIo Շ}[p6wڽ`Ljj w=͚0AB0؞}mKBَ2Ĵig9E;Nƛt!4!f5xz_gM/Q?-tdˁk>/ [ĐC ?L=- )"ZؑY:2ؖQ ,{gp2K=^:N@ 4'z039PCat"0]x %e̱?Y[%p(5O<ɅˣԨu ٮif#Q#^LA-fkB SSgvm%Eoڨ `6-iH0@t+mF3oӿmQF9B"Ȼ֜DFԳ-HMp+vK^Q&Xb9lOP⨙+49˜4qkuKDey-B݇v6ʍ}z ܤcܜzrM}JүMR+-tNh2iYlA AA ҾtQ.dfSəl*>3QɱZU2~*{W'&B0s7nVFZ9$F̟zS[%N& =Tu+Hm4sO0yAy38}tC2m%~Dޘ\鼫W,١m>1j>clhl9pGj$I5Gr) w"SCm?Jhԁg98WS^MPaF3-pQW.\lmSן?E'tlX;gs>y+35h5MCg Wϫ?́gW>"&.l8BFF* NEف쥡MxT V3\FBIJ vXs,wun'?ڣMP_yDr!Ù$Yz8]VacLK6̘RZrgXD10ཱུ`dtBgS.Ga-A|w{1H'N qiVѷ_Uƈ(Ersk?0'$ᾝ^'h -?%C ;/ >&w%Tq`Ab*5+ V4c _f'#|V>WTf|Pﮮ i vt]ޏTwZ ?U8/]$lྰ"Zf)P5ت)eXfم-tN ,4Ȟ; 9eJ#%* {&Vg8FC!%m}E 7>}d:Q]l{;J N*e[pޢ*~IL-]Vc0CvK 'Qyk^=\$(xC^֩${V)Altmj=jēH 4m"J^NFkٵ= =`{ΠڦS zq|vh$b:Ï^$v`yp x[AcҾ^]Eu@ i;Oxl^±[Z0*ShaRdt)\}Vv h$4W)y A$Pᷣ7k$0+7,s2:j=Gד8#֧N.\#a Tﲚ OLTWmD?"o$F ܽ% 3piV?JJ{ڒA nf>ĸa{C40/"8ƬWJz-e+5ħjbA:KGܾg-n#PTOJrTx8^.Ո6$"97r"Z=>34GPB^!.& = ubB.sN* DV3hL"NW\*ac,=j_v`,o&gɡmkKP]0m gL[`yd,>5)` w̆|||i oݷq,}%[]gt1O?踘,嘱{h~`xs/nG150Q ~FN)G]ӳk;̐Yh7>Ċ"qMڢC Y*~p'uGs8?;Bp'1xsc/1tdlOۅuPEIA!lplQv#!ѣZ&iԹˍ7<P @jl7 :Ţ/QtQO)1- O2s H#?~ҭ=rtWl9CcuӔ9w#MDStXLrivK,K*rt}.@ kYQYYx:[&_coPTmxj[^. <HRBLf7^|>nyXM̚^!ld9&)Q5'e : 88nT/Sn$g өծKH'=#uJ;=#b0*q𝢐Y/z FС(N580y(̊d-˺?-M{[N`4U tQ.~ZPqhRns+Ga]xзTmWX;|7; %!+=g`N\{DwN!6bXi>g>Gim &bt"E|D ZݮA7 \C{;TEҢg2p/"J٬oL,4T|#Wԧ濌ؒ٢ JIt/M凝 0hӻeN{fARQw0!ci܇G}+mHVx6+Au2뵞V٘Ȟ-?| ,]KnDW\ inMDƯL os!;3~ EmϲrW T\k ֔au:ZiҏyS+A."`9,;2HGV}0F?3}ުjƀvKA5~ی"EH9ΥqrKP ɩQ["#{?Hy(|R@}>%$:Ns9Q`<({w#*|鵺x0.@`FVwz~2[ 5~ |c\s0}CCd\fv6yfPjuHJ2M0Pa4+&l1P粢>%ml(T|e`Q)A<ONNd^T1}Ko>"ְ)lhBibAMXN+&L-į1#Z/+!*=w@R{ LhՁ*%NYAρיwFͳ'igO 8Cz>Rd哸\?2>"5H&kZLB׮T ǝn{Ѝ bӯa!jN)$;-jLh ZDNZ}O9]MX7 K +(TT]Kj|g]\(IU|0pTBYl`c̫3w21;e=b8؜%`T[Z8lG%_PaT?-oo<1K6E;׾~{=4 o'.Z>`Qٜdq8lc&ee\QRa}es~VTm0!k4.rH54{O܌G= MιiO`V 3>X|7vay8fZ ΕA0[KG ϊ8ꇋEp W-J,%@IJ'IQj'f]yҨL8 fT8-WVj;ʰdط.bۧya8%ζ"^թz+hmk-d}?=Qvl:Qҹd+[Ϸ਌`Yg* G+Nsք|"B{Qh-sV.*{ '74 }_7Ԓ'ʧ+R??Nz5bwЁ^s)JC%Ĭ=t y_\:oSN\Fݩy$u96'.q%FW+AfGp?͉I%Σ;+`NnX>EH]R]ܝ,)W;,hHs-™1y]>]ʤUOG,%Ҏ[$oSZD7lg㦊 o)?ף^8m IV $$˹MDlNLRhJީ*I0d8m)Q֕X([ۛu ]M3&Ôav6qs<zߡ uOF 4ëFK&lаO^$C9&sUՕNfY]@\++D2|uf@#iO @'Fvg|YZ!/LJ6blXX-ssf~-,S[6t֐sS,Ui`{y4n 80w[BIE3PΛ5T59x8 *+OOTG0㑢7Hhys? Q+# *!"4m瀿+l@6gec@:F |(:{;ĵi)ӈr*5C wnZҧERڞBmx"[I9qO}jXݷ#.zl?بwjW 09eSYc*#̍>/+a5q{ӆᡇ=En^,n;X I}#] +HIXnq z̃8V6Mk&AQ]ߞ EaIq{CzkEkI*gׅs 2lMzWn8u9lB݋%[ '4W66qd[V]I宭B& &ʒ RC}ڷcW%rY=jIh}iEQE5 ?=:?eNMlmXNϤ1_p <-}Sz>A/,]v]EUuȅ؉ƈBHuPj:沤Ebۤ 'Zݒ,Ong-/W >ֿ ĘO( ^FXY_h}L&\ hS@:1JA[BztZP X103ޮ Xc*Xw2'Y%_4g^_-՛NzPQU<Ʌ=|y%J&7) 7l/{4+r}3AOw_0=AUyaaxqv6 dJު]|: rl~#=fW zB͈xv YAor`Eqty:M{$U;HvK`MI2h8Ф˙v9:uѠ5VI^Ja ~PcK,0=@Iq]@sw 2V8eXGHI[~oR&.|tHmu. G&T(9Eo4@n#83A/X_4 R%d`%VTM7Zԕ1ɸ6K+!DoM TPDx;|Ϗron X1pF-2". u^.T_x59iO)d9\K7kʎ9e&XZpӮ-oЌRu%Lc!x:B|d!VbBs v1Mxi zj-?ʳN}&C`_fqxDIk|y(3'>Er!TG'#>U!Wxʲ;r][MvrVWu)]G!T}KmҮ۸5cb[N*Ѫ?P`HdF*:9-Tɷw؎2Qp}q0'6g|Cz5O)7ORjc0㸹'9(L}+Onˆ3`%~ٜ 56hS &2NDH|="b|]p31@z`o#WSYsE<?hW.:{cBʪԸa!]gXWcg)~x,h;x& $o\EFSd>F!WJ-iW0$zH{ĪW_[fۂM%-^[ ·PYvKG6KJ%XrƋh֟zBߖ ueZ_  5 cw],Tp!`V>#(^W5 G@; 1^o Qv5?]d_OҸeXCd:j#\ !;y' F6 )i^@M_OY"*WM3\غ,Vi ˅ZmoD𥛠#* ]^IDz${w%$پ>~r_c[%Y_}2)+S$6&w),UGͪrJUJX%.Iz 06VمmEQK"Q~jGIJ1m!Kw_MIh gHq%G-x:Wƾ:u0l'BlR@fYFA#b]i 8d@0'0ȱ Bw,=*74kd_4a-SaH;X~j0)xLF{%֡Ȫn.:෯PHRj>Rξ[H@9>#8f.ˮ6 AZՂؘ={Wx^SQ3-OH&&ĆϮSlK},}ӯ,Nv@GN#'UN\BgП˙QI8v=Rw=@#%֧{A1?!ͶY, ^Uc / j ;ˌiJ %lםZ}-fy},?@xG oIꍄ'&nӂǒ|ٓ(?nUN`H`Kd?56#ˡ72bm5ۺe7[\LEa/ 6ndsnS1>IA!92- > !GFI@l I!2+2賰:aP>HQLa Z'Js9;-N֥ UFjAn%=/ i>pnҢMĮM ?MKHAںVo&7LO1lQt+'%yvDO*5=lZ#{NA Lȧ$H}#)HhT6A4:D6W ^d_|Ǥ]Ax\icy z;^y|Ǿ< GW΁]N:{ >lߴH"-5žf.qO㈝"pW+ՍS,6jh"Ǩ Wbgjuzz3[\Eqym8n%MRճߥG ˻ר,%un+e)d,ATwtA 83EMXV% o!y;KN GLBY͕ngyFX$+>Jʜq?Xe{+J<ܤǘԐ){?ܰE@}L\vXֈH+fj*o> 1|IrQ2Yk`|Q0Nf3ɐnF> {jbJ  5 h! }s6{Q5xP&^} EW >C/E=ҋD-xH/to{8Cd2D%'t) D;{;a09a M}\yG߯jV_81Z|Wx98O(h]!+|ӯN%WBIAB endstream endobj 214 0 obj << /Length1 1602 /Length2 8016 /Length3 0 /Length 9062 /Filter /FlateDecode >> stream xڍ4>nGmR{n&B$DjTYJMQZ{QRjwrN}4u8lV`y8 # Qsu!H(OFB09 ' Ba@e7(DWH##! Clj\@e8 `;{! vȻc dfqJ9k BڃNA:pkH(7ɕ { `W0l0P3.3PEz`Xawn00xw8PGI yxNgD`5쀶(!ʅDrA0_ +.@AVw+奴lqFrBZnr0tO[ߍ݋u=`>[W6nz0XIO; gFyxxy` ڞWz]/goo?g3 |qH߆"//bZ 0?hO ϝx<>3 r*+ɲ6ii'Ї ((|"" o߬&giN*&*cJ:S13>3Nvb1@shȭ +i*3\_(fȁGnM0}LڎR]6MYv.; leB1iz&xm લXk+ n.J3{-隂г0"q~r.U`>v*`3ՅY'=@WĝeUѢW0!2r~6_0lS?EǏRRH^8pF?. ,/4M],VYMCcŋL(cVScv}'xn1j{Lh ds^-dpQG[͏c.nVJ%Rs{&q}5yY` )d\~NHDHC~L*@@NrmWVgc O^1<!wjf1X T1nt^ Y_iИ:-:]3le7Is?j' ݼ8SiK4?]7'1љJÁ.+n)Q$F)rU{<>"3%rPr})TtWKD޻~*#-;y(U;V3NVi^Lu岃.b0ju[rҚD@^ ɣ/~"Fq+uޢ L ]j~ۆ66c>ڋu:m\zEirc? t%?+h| bMNJ~a8[2&~`ΥG wTZɖ{km4wsH=W{hF3gqa m.!/܊IdCެ檍)=e8Nƶ|/SJ2p_÷͢: uޘH%le07G쉃D%ڰG,`[Q|$vPsԛ{# {}>d OsßAZ؎Sc5l aQo-kA f,IW>ԩtrKU4ȕ-iؐWt؃^`g] :}B\|IO$B+d25A]~n_}~"8ӉEsQ}_1j*7<]}9do6Fk ˷p* 4ݙ1 hᔂ |lK?OW%XCl7vr$6)v(['9Dp_Ru/dgZJ\W0_^&Jȵ{d&~4P3S&^SDd .,$z$}M=ǿ}ƼJRWu~Qg`:+o7>N?}rP)F@H+F[(k6|^10QK6o D\zZe$Uh'T*(A䝷W@1wy ¨¢eD):~X)g|=ڈY<耒oݝPRQԄTeB꛵7tR#o'|]'02)oDɣֻ<'U1?0})mF!aH:-<T:lo>-s g#¯m0d7~o$W,i? Ȗ StG)oI#I޶='WVtC(mO(N|>H|B./f9 CuGT (pм}xη;MNDI~Qɥ3`qNAxrqdr+b# /LlEv0=̠a]'G彜F<C]eoy*kK!i7/F_=ZVǛALLrro?x C4KEV/qpF *r8?D9_f3-]Fz9ji; +b63I귗89R#/?rk nyLėT<̴n`:',!%֯@i3lRd)zp rY}f lvRGvҚo&䆢F ^m])"&̋r~t|vHdoJwq` ꧬdJ"}/s5I! JGFk_j5?ms>zrrX OWɵ=hH7| x1A`zeb'Yqo2zD[cwD6'4/ tc#@V 0˟w :2g_қ_0jsIJJ\ڠ7RZ 2@QGQc!k|Mg>ܧn,1<7M-bUOU "S6O5v-,Ƥ9.GU- an5*኎;qBe ":;T{"7vfƬ;t&hďK!q@I!NB{*rcT: *nmrw&dL NeCٟ|iEi>Ы2j>|"ߙP͵#Ҫ 6$66ő!y,oEVPc R1IAo~co+r,#O;GlP(9*_H ^37e)F=_צ;QlX1V:<4FQWn&ΔyTV_H#~.~vWmȋ"xk"vR]+dŗUn &Ox-xL8ѹR}ϋKB7IO CQ}?hc[ђN04y$ӫr >VDi3$f/ܥB IibzҼ.e b$')*8p')7'ƴxKBR\$G"/C,7^Q>0DNŝ.'Ʋ~][n3u0;?ǿ/>_ՠq"ȦSEl8GULp@^}1 MH Wq~XyIR9cZ:}- 7c*pZRakC~yc9>{߯a^=OnU~n9D0̵o,Iy  |W[aޜ=gƋ$&;e.S5"Z?#tޯ&VdJ㙉4ϴ'! W*;Hu ը",mgŀ=3~7 fISG 9+v9lʼlJ'3̐8bt4AY*( 7+F(i[6Iے3qdN%MM4H\z:q&IFjTOf Bhς\Z7dcly>8/PP*/f{YUrqL MVݠa5[>h-6T LDwQ~Q!}Pj) L ȶlQ[l=)4S wG:FVW"grftYxMן ݚƒj/? /ޢx<-/b"~_F{k}z_xJPqC]Ѐ߂S*mQ/y>^I7ůxW=a <ˣ5RK!4F2LTMVJ*wB~~BS:{تa&+۬!`+i T`CoϘ+4(|ꣀLIR Jq~Ki(bC|L|~}< ( Jߘtm7iW5 uf |MgUA5xOb}XІiv_lMS/!ӼE,ތr?"V钬qTR9`RقR~`WG ٠aHh||Xb-& ͧ{@$w姎Vm 8lm57kΏTLS $CQB ]X|(׻MNDƵ޽7@W׭{%91繌̬*S-WhIlzL VwQ]YC3g9CAU6>??8Otk:3/gsL$kԉmjϞw@seލG*gR߫2+D y# ε|8@< SW8bGy $O7=aWjOG)r&<7.(d.+>?Y3Ȅ} fX8G=O Q `N)'~27]b32ZnsfiV: eSBFD}LZWڍ>;@֊$__K_2~8+'^SB vr4|+Tcz؞3X7y-XUݫבLH˚~XF]R2FTT]特lOC4ܴ7A/Aq?FB)Sy\BcP7Bˠ%CR`b,epfMaUa\"t3r2Mc!z[%D܏{5:?QXmW.9n"[t5 }MIE^ Qg1btC~cFo^ӑc:RtOZWdȚjCf&ZS<g yw*}fev6K+XN[XڌG1{EgRH6Uj`HΒ}HYEQRv#P&j/N/B"Ft/]Go()ℹy Op\c΁6i!f扝ozxވ\N Xn3~(sи^MbtE-h6Sg]x:9VanF%ҍGַL4M8/֦+C^0VM*`7m>r}Uǽ"t#iT;.T=]H;'xnyyĸ~ݴLVhߥƅSb[%2%bV4.mO,|Ѳ 4[J n,ͨ :)fMNA||oA!A1*kz"' W3ij7*|Y:4epz7UWQ:jU̬S(l'YS;9I3-GfHV֦ob/=ަ> endobj 149 0 obj << /Type /ObjStm /N 86 /First 789 /Length 4686 /Filter /FlateDecode >> stream xNVLKԩ'd=YoyFN QP$U{)C^c;j6==Ǣ|P'EA?Z-uM}k6tt*a[0^:`<(a\qm8lRmBрш@mK5Lm<#eqm>G ~#j6g`@T7eN*ؚvțQ9Xk3u?GLz`[HJm@VW[ 9>lW96W[dܿML,9ʆo:=grݙ35(q' !h!~ZЛnbDHNU$zDnJ:M>ZbX`{vA8!Y ):K1$ zv-4a|%8J6gڨQ""Yg0R.9 !R6yf8U0~ D%ѥV 8̅J!kE)K^O@V&gD! +-1iNfkG"M9fCˌXBܧ}w*{j~:bt 3OvN>/ N* RbUOǭrot/5CѸ>ݙ/7V.-8.F3rV.jX+kʟ1ufԻ!K\7•4\픣sy\{f6ՓO_0oj7[:ޓޞ<.OtRU.Lg܋._tRWU5grQ..fUU.M{+)_y$ul ΰ kͻga#~wXz4hC2`i,%GF 'ĀϘ2gltZ/zgY=~ͪIZ|AdGAl"Q>?n#m赶ՠ8/7>4jf/)Cj^G p!a8!k0)} `¬u9(:~xy8:RREZqqr+AcO!R>+_OP}?:^TA3oxRZOh+gu5PV3ј/_k?.I/G3 8bv5.cj^޸K_uYW Ma'-a/)fӮl]n5} FM"#Vd5ފF}d366=W.Xrxm5[MqpzrVY;F1ɓ;;(AK~xram\`+l^?cxl< ّ:\6tQbћ{'`}!tH.#zle޼xz[A c 9wKtzԋ帚9m'pp|AܐpA]78{(18~?tB{u4 ihqլ\nJc|2\ 1׻&ANgC{=ArCp eT}ow޽`Ѩu ޞ}_kDs_5ä(`=y.>|>TCv555XЭk澭)b#;ɨn:(}@ ~~YkR u4/ ÚTiI+ ;WһyE(wEkBA=/poF͛[lq1GmLۧow9l_aC^%yH6&z@D]QBeXRwקb}jP߻PS_=';ϙS]~^Ի.}+fgbF_Zu[brFl{w'TG A]eɯ X7{>s>#r}_5@߁ҴO^ߚCג}+'|nNWi؝}WX}'NXW1=r8}R~}'}v=<7y5Tzz0 x?yQ'_㿐'ͅ"~no`grF߰b GMˮ i hFdd+՗ԍK>=o":LO/A#jI 5hy6~,Hd#(fLf.F m ] Nx\ W; ڐpU7F)`k+øeV-aԾ`wO]36޴43[IW 2g/wXEwK ʞh%!t e ]6@hT t6oA쫙ℕ>f[MWe ?:". Y9EFxz'pkN,\tM4=OϪy<^^UA< endstream endobj 228 0 obj << /Type /XRef /Index [0 229] /Size 229 /W [1 3 1] /Root 226 0 R /Info 227 0 R /ID [<92123303E09D8816A2D68730396077A3> <92123303E09D8816A2D68730396077A3>] /Length 583 /Filter /FlateDecode >> stream xOUAϙ;(*  ThsL%?Dk{Ek :ML /ߙwf2w'dnoV^@$cl @hc l6͠SlŠl ;nPf: ` #=-ʚ<}*kᅬY?_em =]ux6Xٳ.!=[+S:IDc > jzNvnj|+~ endstream endobj startxref 270894 %%EOF gsl/inst/doc/gslpaper.R0000644000176000001440000000465112251674041014561 0ustar ripleyusers### R code from vignette source 'gslpaper.Rnw' ################################################### ### code chunk number 1: gslpaper.Rnw:119-119 ################################################### ################################################### ### code chunk number 2: gslpaper.Rnw:120-121 ################################################### library(gsl) ################################################### ### code chunk number 3: gslpaper.Rnw:126-127 ################################################### airy_Ai(1:3) ################################################### ### code chunk number 4: gslpaper.Rnw:140-154 ################################################### x <- seq(from=0,to=10,len=100) plot(c(0,11),c(-1,1),type="n",main="Fig 10.6, p446",xlab="",ylab="",yaxt="n",xaxt="n",frame=FALSE) axis(1,pos=0,at=c(0,2,4,6,8,10),labels=c("","2","4","6","8","10")) axis(2,pos=0) lines(x,airy_Ai ( x),type="l",lty=1) lines(x,airy_Ai (-x),type="l",lty=2) lines(x,airy_Ai_deriv ( x),type="l",lty=3) lines(x,airy_Ai_deriv (-x),type="l",lty=4) text(1,0.6 ,"Ai(-x)" ) text(0.85,0.33 ,"Ai(x)" ) text(1.08,-0.26,"Ai'(x)" ) text(10.5,0.4 ,"Ai'(-x)") arrows(10, 0, 11, 0,angle=11) text(11,-0.1,"x") ################################################### ### code chunk number 5: gslpaper.Rnw:165-179 ################################################### x <- seq(from=0,to=10,len=100) plot(c(0,10),c(-1,2.2),type="n",main="Fig 10.7, p446",xlab="",ylab="",yaxt="n",xaxt="n",frame=FALSE) axis(1,pos=0,at=c(0,1:9),labels=c("","1","2","3","4","5","6","7","8","9")) axis(2,pos=0) lines(x,airy_Bi ( x),type="l",lty=1) lines(x,airy_Bi (-x),type="l",lty=2) lines(x,airy_Bi_deriv ( x),type="l",lty=3) lines(x,airy_Bi_deriv (-x),type="l",lty=4) text(0.15,1.44 ,"Bi(x)",pos=4) text(1,0.90 ,"Bi'(x)",pos=4) text(2.25,0.56,"Bi'(-x)") text(0.7,-0.55,"Bi'(-x)",pos=4) arrows(9, 0, 10, 0, angle=11) text(10,-0.1,"x") ################################################### ### code chunk number 6: gslpaper.Rnw:277-290 ################################################### f <- function(r,n){ -airy_Ai(r+airy_zero_Ai(n+1))/airy_zero_Ai_deriv(n+1)} plot(c(0,10),c(0,10),type="l",yaxt="n",xaxt="n",frame=FALSE,xlab="r",ylab="V(r)") axis(1,pos=0) axis(2,pos=0) x <- seq(from=0,to=10,len=400) for(i in 0:5){ jj <- -airy_zero_Ai(i+1) lines(x=c(0,jj),y=c(jj,jj)) lines(x=c(jj,10),y=c(jj,jj),col="gray",lty=2) points(x,(i+1)*(-1)^i*f(x,i)+jj,type="l") } gsl/configure.ac0000644000176000001440000000266612627531554013401 0ustar ripleyusers AC_INIT([src/airy.c]) #AC_CHECK_LIB(gsl, gsl_sf_airy_Ai_e, # [LIBS="${LIBS} -lgsl -lgslcblas"], # [AC_MSG_ERROR([Cannot find Gnu Scientific Library.])], # [-lgslcblas]) #AC_CHECK_HEADER([gsl/gsl_version.h], , # [AC_MSG_ERROR([Cannot find GSL headers.])]) # Following lines kindly supplied by Dirk Eddelbuettel ## Use gsl-config to find arguments for compiler and linker flags ## ## Check for non-standard programs: gsl-config(1) AC_PATH_PROG([GSL_CONFIG], [gsl-config]) ## If gsl-config was found, let's use it if test "${GSL_CONFIG}" != ""; then # Use gsl-config for header and linker arguments GSL_CFLAGS=`${GSL_CONFIG} --cflags` GSL_LIBS=`${GSL_CONFIG} --libs` else AC_MSG_ERROR([gsl-config not found, is GSL installed?]) fi AC_MSG_CHECKING([if GSL version >= 1.12]) AC_RUN_IFELSE([AC_LANG_SOURCE([[ #include #include int main() { #ifdef GSL_VERSION int major, minor; char *gslv = GSL_VERSION; if ((sscanf(gslv, "%d.%d", &major, &minor)) != 2) { exit (1); } exit (major == 1 && minor < 12); #else exit(1); #endif } ]])], [gsl_version_ok=yes], [gsl_version_ok=no], [gsl_version_ok=yes]) if test "${gsl_version_ok}" = no; then AC_MSG_ERROR([Need GSL version >= 1.12]) else AC_MSG_RESULT([yes]) fi # Now substitute these variables in src/Makevars.in to create src/Makevars AC_SUBST(GSL_CFLAGS) AC_SUBST(GSL_LIBS) AC_OUTPUT(src/Makevars) gsl/src/0000755000176000001440000000000012627550644011671 5ustar ripleyusersgsl/src/hyperg.c0000644000176000001440000000646112627550645013343 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name. Thus gsl_sf_dawson goes to dawson. */ void hyperg_0F1_e(double *c, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_hyperg_0F1_e(c[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void hyperg_1F1_int_e(int *m, int *n, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_hyperg_1F1_int_e(m[i], n[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void hyperg_1F1_e(double *a, double *b, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_hyperg_1F1_e(a[i], b[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void hyperg_U_int_e(int *m, int *n, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_hyperg_U_int_e(m[i], n[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void hyperg_U_e(double *a, double *b, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_hyperg_U_e(a[i], b[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void hyperg_2F1_e(double *a, double *b, double *c, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_hyperg_2F1_e(a[i], b[i], c[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void hyperg_2F1_conj_e(double *aR, double *aI, double *c, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_hyperg_2F1_conj_e(aR[i], aI[i], c[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void hyperg_2F1_renorm_e(double *a, double *b, double *c, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_hyperg_2F1_renorm_e(a[i], b[i], c[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void hyperg_2F1_conj_renorm_e(double *aR, double *aI, double *c, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_hyperg_2F1_conj_renorm_e(aR[i], aI[i], c[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void hyperg_2F0_e(double *a, double *b, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_hyperg_2F0_e(a[i], b[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } gsl/src/qrng.c0000644000176000001440000000533112627550645013007 0ustar ripleyusers#include #include #include /* function names generated by removing "gsl_" from the beginning of the name. Thus gsl_qrng_alloc goes to qrng_alloc. */ /* type 0 is gsl_qrng_niederreiter_2, type 1 is gsl_qrng_sobol */ static void cleanup(SEXP r) { gsl_qrng_free((gsl_qrng*)EXTPTR_PTR(r)); } SEXP qrng_alloc(SEXP type, SEXP dimension) { const gsl_qrng_type * T = NULL; SEXP result; switch(asInteger(type)) { case 0: T = gsl_qrng_niederreiter_2; break; case 1: T = gsl_qrng_sobol; break; default: error("unknown QRNG type"); }; dimension = AS_INTEGER(dimension); result = R_MakeExternalPtr(gsl_qrng_alloc(T, (unsigned int)asInteger(dimension)), dimension, R_NilValue); R_RegisterCFinalizer(result, cleanup); return result; } SEXP qrng_clone(SEXP r) { SEXP result; gsl_qrng *gen = NULL; if (TYPEOF(r) != EXTPTRSXP || !(gen = (gsl_qrng*)EXTPTR_PTR(r))) error("not a QRNG generator"); result = R_MakeExternalPtr(gsl_qrng_clone(gen), duplicate(EXTPTR_TAG(r)), R_NilValue); R_RegisterCFinalizer(result, cleanup); return result; } SEXP qrng_init(SEXP r) { gsl_qrng *gen = NULL; if (TYPEOF(r) != EXTPTRSXP || !(gen = (gsl_qrng*)EXTPTR_PTR(r))) error("not a QRNG generator"); gsl_qrng_init(gen); return r; } SEXP qrng_name(SEXP r) { gsl_qrng *gen = NULL; if (TYPEOF(r) != EXTPTRSXP || !(gen = (gsl_qrng*)EXTPTR_PTR(r))) error("not a QRNG generator"); return mkString(gsl_qrng_name(gen)); } SEXP qrng_size(SEXP r) { gsl_qrng *gen = NULL; if (TYPEOF(r) != EXTPTRSXP || !(gen = (gsl_qrng*)EXTPTR_PTR(r))) error("not a QRNG generator"); return ScalarInteger(gsl_qrng_size(gen)); } SEXP qrng_state(SEXP r) { gsl_qrng *gen = NULL; if (TYPEOF(r) != EXTPTRSXP || !(gen = (gsl_qrng*)EXTPTR_PTR(r))) error("not a QRNG generator"); return R_MakeExternalPtr(gsl_qrng_state(gen), R_NilValue, R_NilValue); } SEXP qrng_get(SEXP r) { SEXP result; gsl_qrng *gen = NULL; int dim; if (TYPEOF(r) != EXTPTRSXP || !(gen = (gsl_qrng*)EXTPTR_PTR(r))) error("not a QRNG generator"); dim = asInteger(EXTPTR_TAG(r)); result = PROTECT(NEW_NUMERIC(dim)); if (gsl_qrng_get(gen, REAL(result)) != GSL_SUCCESS) error("QRNG generator failed"); UNPROTECT(1); return result; } SEXP get_n(SEXP r, SEXP n) { SEXP result; gsl_qrng *gen = NULL; double *value; int i, dim, num = asInteger(n); if (TYPEOF(r) != EXTPTRSXP || !(gen = (gsl_qrng*)EXTPTR_PTR(r))) error("not a QRNG generator"); dim = asInteger(EXTPTR_TAG(r)); result = PROTECT(NEW_NUMERIC(dim*num)); value = REAL(result); for (i=0; i #include /* function names generated by removing "gsl_sf" from the beginning of the name. Thus gsl_sf_gamma_e goes to gamma_e. */ void gamma_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_gamma_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void lngamma_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_lngamma_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void lngamma_sgn_e(double *x, int *len, double *val, double *err, int *status, double *sgn) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_lngamma_sgn_e(x[i], &result, sgn+i) ; val[i] = result.val; err[i] = result.err; } } void gammastar_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_gammastar_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void gammainv_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_gammainv_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void lngamma_complex_e(double *zr, double *zi, int *len, double *val_lnr, double *val_arg, double *err_lnr, double *err_arg, int *status) { int i; gsl_sf_result lnr; gsl_sf_result arg; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_lngamma_complex_e(zr[i], zi[i], &lnr, &arg) ; val_lnr[i] = lnr.val; val_arg[i] = arg.val; err_lnr[i] = lnr.err; err_arg[i] = arg.err; } } void taylorcoeff_e(int *n, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_taylorcoeff_e(n[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void fact_e(unsigned int *n, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_fact_e(n[i], &result) ; val[i] = result.val; err[i] = result.err; } } void doublefact_e(unsigned int *n, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_doublefact_e(n[i], &result) ; val[i] = result.val; err[i] = result.err; } } void lnfact_e(unsigned int *n, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_lnfact_e(n[i], &result) ; val[i] = result.val; err[i] = result.err; } } void lndoublefact_e(unsigned int *n, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_lndoublefact_e(n[i], &result) ; val[i] = result.val; err[i] = result.err; } } void choose_e(unsigned int *n, unsigned int *m, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_choose_e(n[i], m[i], &result) ; val[i] = result.val; err[i] = result.err; } } void lnchoose_e(unsigned int *n, unsigned int *m, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_choose_e(n[i], m[i], &result) ; val[i] = result.val; err[i] = result.err; } } void poch_e(double *a, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_poch_e(a[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void lnpoch_e(double *a, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_lnpoch_e(a[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void lnpoch_sgn_e(double *a, double *x, int *len, double *val, double *err, int *status, double *sgn) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_lnpoch_sgn_e(a[i], x[i], &result, sgn+i) ; val[i] = result.val; err[i] = result.err; } } void pochrel_e(double *a, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_pochrel_e(a[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void gamma_inc_P_e(double *a, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_gamma_inc_P_e(a[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void gamma_inc_Q_e(double *a, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_gamma_inc_Q_e(a[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void gamma_inc_e(double *a, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_gamma_inc_e(a[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void beta_e(double *a, double *b, int *nb, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *nb ; i++){ status[i] = gsl_sf_beta_e(a[i], b[i], &result) ; val[i] = result.val; err[i] = result.err; } } void lnbeta_e(double *a, double *b, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_lnbeta_e(a[i], b[i], &result) ; val[i] = result.val; err[i] = result.err; } } void beta_inc_e(double *a, double *b, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_beta_inc_e(a[i], b[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } gsl/src/poly.c0000644000176000001440000000027012627550645013020 0ustar ripleyusers#include void gsl_poly(double *c, int *len, double *x, int *lenx, double *ans) { int i; for(i = 0; i< *lenx ; i++){ ans[i] = gsl_poly_eval(c, *len, x[i]); } } gsl/src/pow_int.c0000644000176000001440000000076612627550645013526 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name, and stripping the _e. Thus gsl_sf_laguerre_1_e goes to laguerre_1. */ void pow_int(double *x, int *n, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_pow_int_e(x[i], n[i], &result) ; val[i] = result.val; err[i] = result.err; } } gsl/src/bessel.c0000644000176000001440000003761112627550645013323 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name. Thus gsl_sf_bessel_J0 goes to bessel_J0. */ static int sf_mode[] = { GSL_PREC_DOUBLE, GSL_PREC_SINGLE, GSL_PREC_APPROX } ; /* J series begins*/ void bessel_J0_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_J0_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_J1_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_J1_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_Jn_e(int *n, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_Jn_e(n[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_Jn_array_e(int *nmin, int *nmax, double *x, int *len, double *out, int* status) { int i; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_Jn_array(*nmin, *nmax, x[i], out+i*(*nmax - *nmin +1)); } } /* J series ends*/ /* Y series begins*/ void bessel_Y0_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_Y0_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_Y1_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_Y1_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_Yn_e(int *n, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_Yn_e(n[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_Yn_array_e(int *nmin, int *nmax, double *x, int *len, double *out, int* status) { int i; gsl_set_error_handler_off(); for(i=0 ; i< *len ; i++){ status[i] = gsl_sf_bessel_Yn_array(*nmin, *nmax, x[i], out+i*(*nmax - *nmin +1)); } } /* Y series ends*/ /* I series begins*/ void bessel_I0_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_I0_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_I1_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_I1_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_In_e(int *n, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_In_e(n[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_In_array_e(int *nmin, int *nmax, double *x, int *len, double *out, int* status) { int i; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_In_array(*nmin, *nmax, x[i], out+i*(*nmax - *nmin +1)); } } /*I series ends*/ /* I_scaled series begins*/ void bessel_I0_scaled_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_I0_scaled_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } /* J series begins*/ /* J series begins*/ void bessel_I1_scaled_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_I1_scaled_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_In_scaled_e(int *n, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_In_scaled_e(n[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_In_scaled_array_e(int *nmin, int *nmax, double *x, int *len, double *out, int* status) { int i; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_In_scaled_array(*nmin, *nmax, x[i], out+i*(*nmax - *nmin +1)); } } /* I_scaled series begins*/ /* K series begins*/ void bessel_K0_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_K0_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_K1_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_K1_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_Kn_e(int *n, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_Kn_e(n[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_Kn_array_e(int *nmin, int *nmax, double *x, int *len, double *out, int* status) { int i; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_Kn_array(*nmin, *nmax, x[i], out+i*(*nmax - *nmin +1)); } } /* K series ends*/ /* K_scaled series begins*/ void bessel_K0_scaled_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_K0_scaled_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_K1_scaled_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_K1_scaled_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_Kn_scaled_e(int *n, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_Kn_scaled_e(n[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_Kn_scaled_array_e(int *nmin, int *nmax, double *x, int *len, double *out, int* status) { int i; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_Kn_scaled_array(*nmin, *nmax, x[i], out+i*(*nmax - *nmin +1)); } } /* K_scaled series ends */ /* j0 series begins */ void bessel_j0_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_j0_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_j1_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_j1_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_j2_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_j2_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_jl_e(int *l, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_jl_e(l[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_jl_array_e(int *lmax, double *x, int *len, double *out, int* status) { int i; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_jl_array(*lmax, x[i], out+i*(*lmax+1)); } } void bessel_jl_steed_array_e(int *lmax, double *x, int *len, double *out, int* status) { int i; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_jl_steed_array(*lmax, x[i], out+i*(*lmax+1)); } } void bessel_y0_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_y0_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_y1_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_y1_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_y2_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_y2_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_yl_e(int *l, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_yl_e(l[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_yl_array_e(int *lmax, double *x, int *len, double *out, int* status) { int i; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_yl_array(*lmax, x[i], out+i*(*lmax+1)); } } /* yl series ends */ /* i_scaled series starts */ void bessel_i0_scaled_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_i0_scaled_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_i1_scaled_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_i1_scaled_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_i2_scaled_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_i2_scaled_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_il_scaled_e(int *l, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_il_scaled_e(l[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_il_scaled_array_e(int *lmax, double *x, int *len, double *out, int* status) { int i; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_il_scaled_array(*lmax, x[i], out+i*(*lmax +1)); } } /* i_scaled series ends */ /* k_scaled series starts */ void bessel_k0_scaled_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_k0_scaled_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_k1_scaled_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_k1_scaled_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_k2_scaled_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_k2_scaled_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_kl_scaled_e(int *l, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_kl_scaled_e(l[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_kl_scaled_array_e(int *lmax, double *x, int *len, double *out, int* status) { int i; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_kl_scaled_array(*lmax, x[i], out+i*(*lmax +1)); } } /*k_scaled series ends */ /*Jnu series starts */ void bessel_Jnu_e(double *nu, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_Jnu_e(nu[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_sequence_Jnu_e(double *nu, double *v, int *nv, int *mode, int *status) { gsl_set_error_handler_off(); *status=gsl_sf_bessel_sequence_Jnu_e(*nu, sf_mode[*mode], (size_t) *nv, v); } void bessel_Ynu_e(double *nu, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_Ynu_e(nu[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_Inu_e(double *nu, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_Inu_e(nu[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_Inu_scaled_e(double *nu, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_Inu_scaled_e(nu[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_Knu_e(double *nu, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_Knu_e(nu[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_lnKnu_e(double *nu, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_lnKnu_e(nu[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_Knu_scaled_e(double *nu, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_Knu_scaled_e(nu[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_zero_J0_e(unsigned int *s, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_zero_J0_e(s[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_zero_J1_e(unsigned int *s, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_zero_J1_e(s[i], &result) ; val[i] = result.val; err[i] = result.err; } } void bessel_zero_Jnu_e(double *nu, unsigned int *s, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; for(i = 0; i< *len ; i++){ status[i] = gsl_sf_bessel_zero_Jnu_e(nu[i], s[i], &result) ; val[i] = result.val; err[i] = result.err; } } gsl/src/coupling.c0000644000176000001440000000273012627550645013660 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name and _e from the end. Thus gsl_sf_debye_1_e goes to debye_1. */ void coupling_3j(int *two_ja, int *two_jb, int *two_jc, int *two_ma, int *two_mb, int *two_mc, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_coupling_3j_e(two_ja[i], two_jb[i], two_jc[i], two_ma[i], two_mb[i], two_mc[i], &result) ; val[i] = result.val; err[i] = result.err; } } void coupling_6j(int *two_ja, int *two_jb, int *two_jc, int *two_jd, int *two_je, int *two_jf, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_coupling_6j_e(two_ja[i], two_jb[i], two_jc[i], two_jd[i], two_je[i], two_jf[i], &result) ; val[i] = result.val; err[i] = result.err; } } void coupling_9j(int *two_ja, int *two_jb, int *two_jc, int *two_jd, int *two_je, int *two_jf, int *two_jg, int *two_jh, int *two_ji, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_coupling_9j_e(two_ja[i], two_jb[i], two_jc[i], two_jd[i], two_je[i], two_jf[i], two_jg[i], two_jh[i], two_ji[i], &result) ; val[i] = result.val; err[i] = result.err; } } gsl/src/debye.c0000644000176000001440000000241312627550645013126 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name and _e from the end. Thus gsl_sf_debye_1_e goes to debye_1. */ void debye_1(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_debye_1_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void debye_2(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_debye_2_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void debye_3(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_debye_3_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void debye_4(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_debye_4_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } gsl/src/dawson.c0000644000176000001440000000070412627550645013332 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name. Thus gsl_sf_dawson goes to dawson. */ void dawson(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_dawson_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } gsl/src/lambert.c0000644000176000001440000000140612627550645013465 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name and the _e from the end. Thus gsl_sf_lambert_W0 goes to lambert_W0. */ void lambert_W0(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_lambert_W0_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void lambert_Wm1(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_lambert_Wm1_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } gsl/src/transport.c0000644000176000001440000000242612627550645014076 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name. Thus gsl_sf_transport goes to transport. */ void transport_2(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_transport_2_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void transport_3(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_transport_3_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void transport_4(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_transport_4_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void transport_5(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_transport_5_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } gsl/src/rng.c0000644000176000001440000001000512627550645012620 0ustar ripleyusers#include #include #include #include static void rng_cleanup(SEXP r) { gsl_rng_free((gsl_rng*)EXTPTR_PTR(r)); } gsl_rng* get_rng_from_sexp(SEXP rng) { gsl_rng* gen = NULL; if (TYPEOF(rng) != EXTPTRSXP || !(gen = (gsl_rng*)EXTPTR_PTR(rng))) { error("not a random number generator"); } /* if gen is NULL here, this will probably cause a segfault */ return gen; } SEXP rng_alloc(SEXP type) { const gsl_rng_type * T = NULL; SEXP result; switch(asInteger(type)) { case 0: T = gsl_rng_mt19937; break; case 1: T = gsl_rng_ranlxs0; break; case 2: T = gsl_rng_ranlxs1; break; case 3: T = gsl_rng_ranlxs2; break; case 4: T = gsl_rng_ranlxd1; break; case 5: T = gsl_rng_ranlxd2; break; case 6: T = gsl_rng_ranlux; break; case 7: T = gsl_rng_ranlux389; break; case 8: T = gsl_rng_cmrg; break; case 9: T = gsl_rng_mrg; break; case 10: T = gsl_rng_taus; break; case 11: T = gsl_rng_taus2; break; case 12: T = gsl_rng_gfsr4; break; case 13: T = gsl_rng_minstd; break; default: error("unknown random number generator type"); }; result = R_MakeExternalPtr(gsl_rng_alloc(T), R_NilValue, R_NilValue) ; R_RegisterCFinalizer(result, rng_cleanup); return result; } SEXP rng_set(SEXP r, SEXP sseed) { unsigned long int seed; gsl_rng* gen; gen = get_rng_from_sexp(r); PROTECT(sseed = AS_NUMERIC(sseed)); seed = *(NUMERIC_POINTER(sseed)); UNPROTECT(1); gsl_rng_set(gen, seed); return sseed; } SEXP rng_clone(SEXP r) { SEXP result; gsl_rng* gen; gen = get_rng_from_sexp(r); result = R_MakeExternalPtr(gsl_rng_clone(gen), duplicate(EXTPTR_TAG(r)), R_NilValue); R_RegisterCFinalizer(result, rng_cleanup); return result; } SEXP rng_name(SEXP r) { gsl_rng* gen; gen = get_rng_from_sexp(r); return mkString(gsl_rng_name(gen)); } SEXP rng_min(SEXP r) { SEXP result; gsl_rng* gen; gen = get_rng_from_sexp(r); PROTECT(result = NEW_NUMERIC(1)); NUMERIC_POINTER(result)[0] = gsl_rng_min(gen); UNPROTECT(1); return result; } SEXP rng_max(SEXP r) { SEXP result; gsl_rng* gen; gen = get_rng_from_sexp(r); PROTECT(result = NEW_NUMERIC(1)); NUMERIC_POINTER(result)[0] = gsl_rng_max(gen); UNPROTECT(1); return result; } SEXP rng_get(SEXP r, SEXP slength) { SEXP result; gsl_rng* gen; int length, i; /* parse args */ gen = get_rng_from_sexp(r); PROTECT(slength = AS_NUMERIC(slength)); length = (int)*(NUMERIC_POINTER(slength)); UNPROTECT(1); /* get draws */ PROTECT(result = NEW_NUMERIC(length)); for(i = 0; i */ #include #include "vector.h" #include gsl_vector *vector_gsl_from_R(SEXP x) { int i, n; gsl_vector *result; double *x_; assert(isNumeric(x)); x_ = REAL(x); n = LENGTH(x); result = gsl_vector_alloc(n); assert(result != NULL); for (i = 0; i < n; i++) gsl_vector_set(result, i, x_[i]); return result; } SEXP vector_R_from_gsl(const gsl_vector *x) { SEXP result; double *x_; int i; int n = x->size; PROTECT(result = NEW_NUMERIC(n)); x_ = NUMERIC_POINTER(result); for (i = 0; i < n; i++) x_[i] = gsl_vector_get(x, i); UNPROTECT(1); return result; } void vector_assign_gsl_from_R(gsl_vector *x, SEXP y) { double *y_ = NUMERIC_POINTER(y); int i; int n = x->size; assert(LENGTH(y) == n); for (i = 0; i < n; i++) gsl_vector_set(x, i, y_[i]); } gsl/src/laguerre.c0000644000176000001440000000257212627550645013652 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name and the _e from the end. Thus gsl_sf_laguerre_1_e goes to laguerre_1. */ void laguerre_1(double *a, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_laguerre_1_e(a[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void laguerre_2(double *a, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_laguerre_2_e(a[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void laguerre_3(double *a, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_laguerre_3_e(a[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void laguerre_n(int *n, double *a, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_laguerre_n_e(*n, a[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } gsl/src/synchrotron.c0000644000176000001440000000137412627550645014433 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name. Thus gsl_sf_synchrotron goes to synchrotron. */ void synchrotron_1(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_synchrotron_1_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void synchrotron_2(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_synchrotron_2_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } gsl/src/vector.h0000644000176000001440000000062112627550645013344 0ustar ripleyusers/* Conversion between GSL vectors and R vectors. * * Written in 2007 by Andrew Clausen */ #ifndef RGSL_VECTOR_H #define RGSL_VECTOR_H #include #include #include extern gsl_vector *vector_gsl_from_R(SEXP x); extern SEXP vector_R_from_gsl(const gsl_vector *x); extern void vector_assign_gsl_from_R(gsl_vector *x, SEXP y); #endif gsl/src/error.c0000644000176000001440000000350412627550645013171 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name. Thus gsl_sf_airy_Ai goes to airy_Ai. */ void erf_e(double *x, int *len, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_erf_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void erfc_e(double *x, int *len, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_erfc_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void log_erfc_e(double *x, int *len, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_log_erfc_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void log_erf_Z_e(double *x, int *len, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_erf_Z_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void log_erf_Q_e(double *x, int *len, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_erf_Q_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void hazard_e(double *x, int *len, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_erf_Q_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } gsl/src/clausen.c0000644000176000001440000000071112627550645013467 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name. Thus gsl_sf_dawson goes to dawson. */ void clausen_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_clausen_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } gsl/src/elljac.c0000644000176000001440000000065112627550645013272 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name. Thus gsl_sf_dawson goes to dawson. */ void elljac_e(double *u, double *m, int *len, double *sn, double *cn, double *dn, int *status) { int i; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_elljac_e(u[i], m[i], sn+i, cn+i, dn+i); } } gsl/src/Makevars.in0000644000176000001440000000031612627550645013773 0ustar ripleyusers# Kindly supplied by Dirk Eddelbuettel # set by configure GSL_CFLAGS = @GSL_CFLAGS@ GSL_LIBS = @GSL_LIBS@ # combine to standard arguments for R PKG_CPPFLAGS = $(GSL_CFLAGS) -I. PKG_LIBS = $(GSL_LIBS) gsl/src/ellint.c0000644000176000001440000000743012627550645013331 0ustar ripleyusers#include #include #include /* function names generated by removing "gsl_sf" from the beginning of the name. Thus gsl_sf_airy_Ai goes to airy_Ai. See section 7.13 of the GSL manual for documentation */ static int sf_mode[] = { GSL_PREC_DOUBLE, GSL_PREC_SINGLE, GSL_PREC_APPROX } ; void ellint_Kcomp_e(double *k, int *len, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_ellint_Kcomp_e(k[i], sf_mode[*mode], &result) ; val[i] = result.val; err[i] = result.err; } } void ellint_Ecomp_e(double *k, int *nk, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *nk ; i++){ status[i] = gsl_sf_ellint_Ecomp_e(k[i], sf_mode[*mode], &result) ; val[i] = result.val; err[i] = result.err; } } void ellint_F_e(double *phi, double *k, int *nk, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *nk ; i++){ status[i] = gsl_sf_ellint_F_e(phi[i], k[i], sf_mode[*mode], &result) ; val[i] = result.val; err[i] = result.err; } } void ellint_E_e(double *phi, double *k, int *nk, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *nk ; i++){ status[i] = gsl_sf_ellint_E_e(phi[i], k[i], sf_mode[*mode], &result) ; val[i] = result.val; err[i] = result.err; } } void ellint_P_e(double *phi, double *k, double *n, int *nk, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *nk ; i++){ status[i] = gsl_sf_ellint_P_e(phi[i], k[i], n[i], sf_mode[*mode], &result) ; val[i] = result.val; err[i] = result.err; } } void ellint_D_e(double *phi, double *k, double *n, int *nk, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *nk ; i++){ #if defined(GSL_MAJOR_VERSION) && GSL_MAJOR_VERSION >= 2 status[i] = gsl_sf_ellint_D_e(phi[i], k[i], sf_mode[*mode], &result) ; #else status[i] = gsl_sf_ellint_D_e(phi[i], k[i], n[i], sf_mode[*mode], &result) ; #endif val[i] = result.val; err[i] = result.err; } } void ellint_RC_e(double *x, double *y, int *nx, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *nx ; i++){ status[i] = gsl_sf_ellint_RC_e(x[i], y[i], sf_mode[*mode], &result) ; val[i] = result.val; err[i] = result.err; } } void ellint_RD_e(double *x, double *y, double *z, int *nx, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *nx ; i++){ status[i] = gsl_sf_ellint_RD_e(x[i], y[i], z[i], sf_mode[*mode], &result) ; val[i] = result.val; err[i] = result.err; } } void ellint_RF_e(double *x, double *y, double *z, int *nx, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *nx ; i++){ status[i] = gsl_sf_ellint_RF_e(x[i], y[i], z[i], sf_mode[*mode], &result) ; val[i] = result.val; err[i] = result.err; } } void ellint_RJ_e(double *x, double *y, double *z, double *p, int *nx, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *nx ; i++){ status[i] = gsl_sf_ellint_RJ_e(x[i], y[i], z[i], *p, sf_mode[*mode], &result) ; val[i] = result.val; err[i] = result.err; } } gsl/src/psi.c0000644000176000001440000000343512627550645012636 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name and _e from the end. Thus gsl_sf_psi_1_e goes to psi_1. */ void psi_int(int *n, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_psi_int_e(n[i], &result) ; val[i] = result.val; err[i] = result.err; } } void psi(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_psi_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void psi_1piy(double *y, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_psi_1piy_e(y[i], &result) ; val[i] = result.val; err[i] = result.err; } } void psi_1_int(int *n, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_psi_1_int_e(n[i], &result) ; val[i] = result.val; err[i] = result.err; } } void psi_1(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_psi_1_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void psi_n(int *m, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_psi_n_e(m[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } gsl/src/gegenbauer.c0000644000176000001440000000323412627550645014144 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name. Thus gsl_sf_gegenpoly_1_e goes to gegenpoly_1_e. */ void gegenpoly_1_e(double *lambda, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_gegenpoly_1_e(lambda[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void gegenpoly_2_e(double *lambda, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_gegenpoly_2_e(lambda[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void gegenpoly_3_e(double *lambda, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_gegenpoly_3_e(lambda[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void gegenpoly_n_e(int *n, double *lambda, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_gegenpoly_n_e(*n, lambda[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void gegenpoly_array(int *nmax, double *lambda, double *x, int *len, double *out, int *status) { int i; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_gegenpoly_array(*nmax, lambda[i], x[i], out+i*(*nmax+1) ) ; } } gsl/src/fermi_dirac.c0000644000176000001440000000535012627550645014305 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name. Thus gsl_sf_fermi_dirac_m1_e goes to fermi_dirac_m1. */ void fermi_dirac_m1(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_fermi_dirac_m1_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void fermi_dirac_0(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_fermi_dirac_0_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void fermi_dirac_1(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_fermi_dirac_1_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void fermi_dirac_2(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_fermi_dirac_2_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void fermi_dirac_int(int *j, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_fermi_dirac_int_e(j[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void fermi_dirac_mhalf(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_fermi_dirac_mhalf_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void fermi_dirac_half(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_fermi_dirac_half_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void fermi_dirac_3half(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_fermi_dirac_3half_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void fermi_dirac_inc_0(double *x, double *b, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_fermi_dirac_inc_0_e(x[i], b[i], &result) ; val[i] = result.val; err[i] = result.err; } } gsl/src/coulomb.c0000644000176000001440000000702012627550645013475 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name and _e from the end. */ void hydrogenicR_1(double *Z, double *r, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_hydrogenicR_1_e(Z[i], r[i], &result) ; val[i] = result.val; err[i] = result.err; } } void hydrogenicR(int *n, int *l, double *Z, double *r, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_hydrogenicR_e(n[i], l[i], Z[i], r[i], &result) ; val[i] = result.val; err[i] = result.err; } } void coulomb_wave_FG(double *eta, double *x, double *L_F, int *k, int *len, double *val_F , double *err_F , double *val_Fp , double *err_Fp , double *val_G , double *err_G , double *val_Gp , double *err_Gp , double *exp_F , double *exp_G , int *status) { int i; gsl_sf_result F; gsl_sf_result Fp; gsl_sf_result G; gsl_sf_result Gp; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_coulomb_wave_FG_e(eta[i], x[i], L_F[i], k[i], &F, &Fp, &G, &Gp, exp_F+i, exp_G+i); val_F[i] = F.val; err_F[i] = F.err; val_Fp[i] = Fp.val; err_Fp[i] = Fp.err; val_G[i] = G.val; err_G[i] = G.err; val_Gp[i] = Gp.val; err_Gp[i] = Gp.err; } } void coulomb_wave_F_array(double *L_min, int *kmax, double *eta, double *x, int *len, double *fc_array, double *F_exponent, int* status) { int i; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_coulomb_wave_F_array(*L_min, *kmax, eta[i], x[i], fc_array+i*(*kmax+1), F_exponent+i); } } void coulomb_wave_FG_array(double *L_min, int *kmax, double *eta, double *x, int *len, double *fc_array, double *gc_array, double *F_exponent, double *G_exponent, int* status) { int i; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_coulomb_wave_FG_array(*L_min, *kmax, eta[i], x[i], fc_array+i*(*kmax+1), gc_array+i*(*kmax+1), F_exponent+i, G_exponent+i); } } void coulomb_wave_FGp_array(double *L_min, int *kmax, double *eta, double *x, int *len, double *fc_array, double *fcp_array, double *gc_array, double *gcp_array, double *F_exponent, double *G_exponent, int* status) { int i; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_coulomb_wave_FGp_array(*L_min, *kmax, eta[i], x[i], fc_array+i*(*kmax+1), fcp_array+i*(*kmax+1), gc_array+i*(*kmax+1), gcp_array+i*(*kmax+1), F_exponent+i, G_exponent+i); } } void coulomb_wave_sphF_array(double *L_min, int *kmax, double *eta, double *x, int *len, double *fc_array, double *F_exponent, int* status) { int i; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_coulomb_wave_sphF_array(*L_min, *kmax, eta[i], x[i], fc_array+i*(*kmax+1), F_exponent+i); } } void coulomb_CL(double *L, double *eta, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_coulomb_CL_e(L[i], eta[i], &result) ; val[i] = result.val; err[i] = result.err; } } void coulomb_CL_array(double *L_min, int *kmax, double *eta, int *len, double *cl, int* status) { int i; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_coulomb_CL_array(*L_min, *kmax, eta[i], cl+i*(*kmax+1)); } } gsl/src/Makevars.win0000644000176000001440000000044312627550645014163 0ustar ripleyusers# PKG_LIBS=-LF:/MinGW/usr/local/lib -lgsl -lgslcblas # CPPFLAGS=-I$(R_HOME)/include -IF:/MinGW/usr/local/include # PKG_CPPFLAGS=-IF:/MinGW/usr/local/include # lines below supplied by Brian Ripley and Uwe Ligges PKG_CPPFLAGS=-I$(LIB_GSL)/include PKG_LIBS=-L$(LIB_GSL)/lib -lgsl -lgslcblas gsl/src/legendre.c0000644000176000001440000001767212627550645013640 0ustar ripleyusers#include // for size_t #include #include #include /* function names generated by removing "gsl_sf" from the beginning of the name. Thus gsl_sf_legendre_P1 goes to legendre_P1. */ void legendre_P1(double *x, int *len, double *out) { int i; for(i = 0; i< *len ; i++){ out[i] = gsl_sf_legendre_P1(x[i]); } } void legendre_P1_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_legendre_P1_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void legendre_P2(double *x, int *len, double *out) { int i; for(i = 0; i< *len ; i++){ out[i] = gsl_sf_legendre_P2(x[i]); } } void legendre_P2_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_legendre_P2_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void legendre_P3(double *x, int *len, double *out) { int i; for(i = 0; i< *len ; i++){ out[i] = gsl_sf_legendre_P3(x[i]); } } void legendre_P3_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_legendre_P3_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void legendre_Pl(int *l, double *x, int *len, double *out) { int i; for(i = 0; i< *len ; i++){ out[i] = gsl_sf_legendre_Pl(*l, x[i]); } } void legendre_Pl_e(int *l, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_legendre_Pl_e(*l, x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void legendre_Pl_array(int *lmax, double* x, int* len, double* out, int* status) { int i; gsl_set_error_handler_off(); for(i=0 ; i< *len ; i++) { status[i] = gsl_sf_legendre_Pl_array(*lmax, x[i], out+i*(*lmax+1)); } } void legendre_Q0(double *x, int *len, double *out) { int i; for(i = 0; i< *len ; i++){ out[i] = gsl_sf_legendre_Q0(x[i]); } } void legendre_Q0_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_legendre_Q0_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void legendre_Q1(double *x, int *len, double *out) { int i; for(i = 0; i< *len ; i++){ out[i] = gsl_sf_legendre_Q1(x[i]); } } void legendre_Q1_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_legendre_Q1_e(x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void legendre_Ql(int *l, double *x, int *len, double *out) { int i; for(i = 0; i< *len ; i++){ out[i] = gsl_sf_legendre_Ql(*l, x[i]); } } void legendre_Ql_e(int *l, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_legendre_Ql_e(*l, x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void legendre_Plm(int *l, int *m, double *x, int *len, double *out) { int i; for(i = 0; i< *len ; i++){ out[i] = gsl_sf_legendre_Plm(*l, *m, x[i]); } } void legendre_Plm_e(int *l, int *m, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_legendre_Plm_e(*l, *m, x[i], &result) ; val[i] = result.val; err[i] = result.err; } } #if ((GSL_MAJOR_VERSION < 2) || (GSL_MAJOR_VERSION == 2 && GSL_MINOR_VERSION == 0)) void legendre_Plm_array(int *lmax, int *m, double* x, int* len, double* out, int* status) { int i; gsl_set_error_handler_off(); for(i=0 ; i< *len ; i++) { status[i] = gsl_sf_legendre_Plm_array(*lmax, *m, x[i], out+i*(*lmax- *m +1)); } } #endif void legendre_sphPlm(int *l, int *m, double *x, int *len, double *out) { int i; for(i = 0; i< *len ; i++){ out[i] = gsl_sf_legendre_sphPlm(*l, *m, x[i]); } } void legendre_sphPlm_e(int *l, int *m, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_legendre_sphPlm_e(*l, *m, x[i], &result) ; val[i] = result.val; err[i] = result.err; } } #if ((GSL_MAJOR_VERSION < 2) || (GSL_MAJOR_VERSION == 2 && GSL_MINOR_VERSION == 0)) void legendre_sphPlm_array(int *lmax, int *m, double* x, int* len, double* out, int* status) { int i; gsl_set_error_handler_off(); for(i=0 ; i< *len ; i++) { status[i] = gsl_sf_legendre_Plm_array(*lmax, *m, x[i], out+i*(*lmax- *m +1)); } } #endif void conicalP_half_e(double *lambda, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_conicalP_half_e(lambda[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void conicalP_mhalf_e(double *lambda, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_conicalP_mhalf_e(lambda[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void conicalP_0_e(double *lambda, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_conicalP_0_e(lambda[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void conicalP_1_e(double *lambda, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_conicalP_1_e(lambda[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void conicalP_sph_reg_e(int *l, double *lambda, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_conicalP_sph_reg_e(l[i], lambda[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void conicalP_cyl_reg_e(int *m, double *lambda, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_conicalP_sph_reg_e(m[i], lambda[i], x[i], &result) ; val[i] = result.val; err[i] = result.err; } } void legendre_H3d_0_e(double *lambda, double *eta, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_legendre_H3d_0_e(lambda[i], eta[i], &result) ; val[i] = result.val; err[i] = result.err; } } void legendre_H3d_1_e(double *lambda, double *eta, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_legendre_H3d_1_e(lambda[i], eta[i], &result) ; val[i] = result.val; err[i] = result.err; } } void legendre_H3d_e(int *l, double *lambda, double *eta, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_legendre_H3d_e(l[i], lambda[i], eta[i], &result) ; val[i] = result.val; err[i] = result.err; } } void legendre_H3d_array(int *lmax, double *lambda, double *eta, int *len, double* out, int* status) { int i; gsl_set_error_handler_off(); for(i=0 ; i< *len ; i++) { status[i] = gsl_sf_legendre_H3d_array(*lmax, lambda[i], eta[i], out+i*(*lmax+1)); } } gsl/src/airy.c0000644000176000001440000000737312627550645013014 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name. Thus gsl_sf_airy_Ai goes to airy_Ai. */ static int sf_mode[] = { GSL_PREC_DOUBLE, GSL_PREC_SINGLE, GSL_PREC_APPROX } ; void airy_Ai_e(double *x, int *len, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_airy_Ai_e(x[i], sf_mode[*mode], &result) ; val[i] = result.val; err[i] = result.err; } } void airy_Bi_e(double *x, int *len, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; for(i = 0; i< *len ; i++){ status[i] = gsl_sf_airy_Bi_e(x[i], sf_mode[*mode], &result) ; val[i] = result.val; err[i] = result.err; } } void airy_Ai_scaled_e(double *x, int *len, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; for(i = 0; i< *len ; i++){ status[i] = gsl_sf_airy_Ai_scaled_e(x[i], sf_mode[*mode], &result) ; val[i] = result.val; err[i] = result.err; } } void airy_Bi_scaled_e(double *x, int *len, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; for(i = 0; i< *len ; i++){ status[i] = gsl_sf_airy_Bi_scaled_e(x[i], sf_mode[*mode], &result) ; val[i] = result.val; err[i] = result.err; } } void airy_Ai_deriv_e(double *x, int *len, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; for(i = 0; i< *len ; i++){ status[i] = gsl_sf_airy_Ai_deriv_e(x[i], sf_mode[*mode], &result) ; val[i] = result.val; err[i] = result.err; } } void airy_Bi_deriv_e(double *x, int *len, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; for(i = 0; i< *len ; i++){ status[i] = gsl_sf_airy_Bi_deriv_e(x[i], sf_mode[*mode], &result) ; val[i] = result.val; err[i] = result.err; } } void airy_Ai_deriv_scaled_e(double *x, int *len, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; for(i = 0; i< *len ; i++){ status[i] = gsl_sf_airy_Ai_deriv_scaled_e(x[i], sf_mode[*mode], &result) ; val[i] = result.val; err[i] = result.err; } } void airy_Bi_deriv_scaled_e(double *x, int *len, int *mode, double *val, double *err, int *status) { int i; gsl_sf_result result; for(i = 0; i< *len ; i++){ status[i] = gsl_sf_airy_Bi_deriv_scaled_e(x[i], sf_mode[*mode], &result) ; val[i] = result.val; err[i] = result.err; } } void airy_zero_Ai_e(int *n, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; for(i = 0; i< *len ; i++){ if(n[i]>0){ status[i] = gsl_sf_airy_zero_Ai_e(n[i], &result) ; } else { result.val=0.0; result.err=GSL_EDOM; } val[i] = result.val; err[i] = result.err; } } void airy_zero_Bi_e(int *n, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; for(i = 0; i< *len ; i++){ if(n[i]>0){ status[i] = gsl_sf_airy_zero_Bi_e(n[i], &result) ; } else { result.val=0.0; result.err=GSL_EDOM; } val[i] = result.val; err[i] = result.err; } } void airy_zero_Ai_deriv_e(int *n, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; for(i = 0; i< *len ; i++){ if(n[i]>0){ status[i] = gsl_sf_airy_zero_Ai_deriv_e(n[i], &result) ; } else { result.val=0.0; result.err=GSL_EDOM; } val[i] = result.val; err[i] = result.err; } } void airy_zero_Bi_deriv_e(int *n, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; for(i = 0; i< *len ; i++){ if(n[i]>0){ status[i] = gsl_sf_airy_zero_Bi_deriv_e(n[i], &result) ; } else { result.val=0.0; result.err=GSL_EDOM; } val[i] = result.val; err[i] = result.err; } } gsl/src/expint.c0000644000176000001440000000570112627550645013350 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name. Thus gsl_sf_expint_W0 goes to expint_W0. */ void expint_E1_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_expint_E1_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void expint_E2_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_expint_E2_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void expint_En_e(int *n, double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_expint_En_e(n[i], x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void expint_Ei_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_expint_Ei_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void Shi_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_Shi_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void Chi_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_Chi_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void expint_3_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_expint_3_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void Si_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_Si_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void Ci_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_Ci_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void atanint_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_atanint_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } gsl/src/multimin.c0000644000176000001440000001521612627550645013701 0ustar ripleyusers/* An R wrapper for GSL's multimin family of functions for minimizing * functions. * * Written in 2007 by Andrew Clausen */ #include #include #include #include #include #include #include "vector.h" const gsl_multimin_fdfminimizer_type *fdf_methods[5]; const gsl_multimin_fminimizer_type *f_methods[5]; static int initialized = 0; static void init() { if (initialized) return; initialized = 1; fdf_methods[0] = gsl_multimin_fdfminimizer_conjugate_fr; fdf_methods[1] = gsl_multimin_fdfminimizer_conjugate_pr; fdf_methods[2] = gsl_multimin_fdfminimizer_vector_bfgs; fdf_methods[3] = gsl_multimin_fdfminimizer_steepest_descent; fdf_methods[4] = NULL; f_methods[0] = NULL; f_methods[1] = NULL; f_methods[2] = NULL; f_methods[3] = NULL; f_methods[4] = gsl_multimin_fminimizer_nmsimplex; } double f_wrapper(const gsl_vector *v, void *params) { SEXP state = params; SEXP f_body = findVar(install("f"), state); SEXP rho = findVar(install("rho"), state); SEXP x = vector_R_from_gsl(v); PROTECT(x); defineVar(install("x"), x, rho); UNPROTECT(1); return REAL(eval(f_body, rho))[0]; } void df_wrapper(const gsl_vector *v, void *params, gsl_vector *df) { SEXP state = params; SEXP df_body = findVar(install("df"), state); SEXP rho = findVar(install("rho"), state); SEXP x = vector_R_from_gsl(v); PROTECT(x); defineVar(install("x"), x, rho); UNPROTECT(1); vector_assign_gsl_from_R(df, eval(df_body, rho)); } void fdf_wrapper(const gsl_vector *v, void *params, double *f, gsl_vector *df) { SEXP state = params; SEXP fdf_body = findVar(install("fdf"), state); SEXP rho = findVar(install("rho"), state); SEXP x = vector_R_from_gsl(v); SEXP result; PROTECT(x); defineVar(install("x"), x, rho); PROTECT(result = eval(fdf_body, rho)); *f = REAL(findVar(install("f"), result))[0]; vector_assign_gsl_from_R(df, findVar(install("df"), result)); UNPROTECT(2); } void free_ptr(SEXP s) { void *ptr = R_ExternalPtrAddr(s); free(ptr); } void free_fmin_ptr(SEXP s) { gsl_multimin_fminimizer *gsl_state = R_ExternalPtrAddr(s); /* following conditional suggested by Brian Ripley; under Windows, the call to free caused the package to fail R CMD check. Omitting the free results in a slight memory leak; this is stated in Multimin.Rd */ #ifndef WIN32 gsl_multimin_fminimizer_free(gsl_state); #endif } SEXP multimin_f_new(SEXP state, SEXP x, SEXP method, SEXP step_size) { SEXP ptr; gsl_multimin_fminimizer *gsl_state; const gsl_multimin_fminimizer_type *method_; gsl_multimin_function *f_; int n; init(); assert(isNumeric(x)); assert(isInteger(method)); assert(isNumeric(step_size)); n = LENGTH(x); assert(n > 0); assert(INTEGER(method)[0] < 6); method_ = f_methods[INTEGER(method)[0] - 1]; assert(method_ != NULL); gsl_state = gsl_multimin_fminimizer_alloc(method_, n); assert(gsl_state != NULL); f_ = malloc(sizeof(gsl_multimin_function)); assert(f_ != NULL); f_->f = f_wrapper; f_->n = n; f_->params = state; ptr = R_MakeExternalPtr(gsl_state, mkChar("gsl_state"), state); R_RegisterCFinalizer(ptr, free_fmin_ptr); setVar(install("gsl_state"), ptr, state); ptr = R_MakeExternalPtr(f_, mkChar("gsl_function"), state); R_RegisterCFinalizer(ptr, free_ptr); setVar(install("f_wrapper_ref"), ptr, state); gsl_multimin_fminimizer_set(gsl_state, f_, vector_gsl_from_R(x), vector_gsl_from_R(step_size)); return state; } SEXP multimin_fdf_new(SEXP state, SEXP x, SEXP method, SEXP step_size, SEXP tol) { SEXP ptr; gsl_multimin_fdfminimizer *gsl_state; const gsl_multimin_fdfminimizer_type *method_; gsl_multimin_function_fdf *f_; int n; init(); assert(isNumeric(x)); assert(isInteger(method)); assert(isNumeric(step_size)); assert(isNumeric(tol)); assert(LENGTH(step_size) == 1); assert(LENGTH(tol) == 1); n = LENGTH(x); assert(n > 0); assert(INTEGER(method)[0] < 6); method_ = fdf_methods[INTEGER(method)[0] - 1]; assert(method_ != NULL); gsl_state = gsl_multimin_fdfminimizer_alloc(method_, n); assert(gsl_state != NULL); f_ = malloc(sizeof(gsl_multimin_function_fdf)); assert(f_ != NULL); f_->f = f_wrapper; f_->df = df_wrapper; f_->fdf = fdf_wrapper; f_->n = n; f_->params = state; ptr = R_MakeExternalPtr(gsl_state, mkChar("gsl_state"), state); R_RegisterCFinalizer(ptr, free_fmin_ptr); setVar(install("gsl_state"), ptr, state); ptr = R_MakeExternalPtr(f_, mkChar("gsl_function"), state); R_RegisterCFinalizer(ptr, free_ptr); setVar(install("f_wrapper_ref"), ptr, state); gsl_multimin_fdfminimizer_set(gsl_state, f_, vector_gsl_from_R(x), REAL(step_size)[0], REAL(tol)[0]); return state; } SEXP multimin_f_iterate(SEXP state) { gsl_multimin_fminimizer *gsl_state; SEXP result = NEW_INTEGER(1); PROTECT(result); gsl_state = R_ExternalPtrAddr(findVar(install("gsl_state"), state)); INTEGER(result)[0] = gsl_multimin_fminimizer_iterate(gsl_state); UNPROTECT(1); return result; } SEXP multimin_fdf_iterate(SEXP state) { gsl_multimin_fdfminimizer *gsl_state; SEXP result = NEW_INTEGER(1); PROTECT(result); gsl_state = R_ExternalPtrAddr(findVar(install("gsl_state"), state)); INTEGER(result)[0] = gsl_multimin_fdfminimizer_iterate(gsl_state); UNPROTECT(1); return result; } SEXP multimin_restart(SEXP state) { gsl_multimin_fdfminimizer *gsl_state; SEXP result = NEW_INTEGER(1); PROTECT(result); gsl_state = R_ExternalPtrAddr(findVar(install("gsl_state"), state)); INTEGER(result)[0] = gsl_multimin_fdfminimizer_restart(gsl_state); UNPROTECT(1); return result; } SEXP multimin_f_state_argmin(SEXP state) { gsl_multimin_fminimizer *gsl_state; gsl_state = R_ExternalPtrAddr(findVar(install("gsl_state"), state)); return vector_R_from_gsl(gsl_state->x); } SEXP multimin_fdf_state_argmin(SEXP state) { gsl_multimin_fdfminimizer *gsl_state; gsl_state = R_ExternalPtrAddr(findVar(install("gsl_state"), state)); return vector_R_from_gsl(gsl_state->x); } SEXP multimin_f_state_min(SEXP state) { SEXP result = NEW_NUMERIC(1); PROTECT(result); gsl_multimin_fminimizer *gsl_state; gsl_state = R_ExternalPtrAddr(findVar(install("gsl_state"), state)); NUMERIC_POINTER(result)[0] = gsl_state->fval; UNPROTECT(1); return result; } SEXP multimin_fdf_state_min(SEXP state) { SEXP result = NEW_NUMERIC(1); PROTECT(result); gsl_multimin_fdfminimizer *gsl_state; gsl_state = R_ExternalPtrAddr(findVar(install("gsl_state"), state)); NUMERIC_POINTER(result)[0] = gsl_state->f; UNPROTECT(1); return result; } SEXP multimin_fdf_state_grad(SEXP state) { gsl_multimin_fdfminimizer *gsl_state; gsl_state = R_ExternalPtrAddr(findVar(install("gsl_state"), state)); return vector_R_from_gsl(gsl_state->gradient); } gsl/src/log.c0000644000176000001440000000331312627550645012617 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning, of the name. Thus gsl_sf_log_e goes to log_e and gsl_sf_complex_log_e goes to complex_log_e. */ void log_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_log_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void log_abs_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_log_abs_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void complex_log_e(double *zr, double *zi, int *len, double *val_lnr, double *val_arg, double *err_lnr, double *err_arg, int *status) { int i; gsl_sf_result lnr; gsl_sf_result arg; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_complex_log_e(zr[i], zi[i], &lnr, &arg) ; val_lnr[i] = lnr.val; val_arg[i] = arg.val; err_lnr[i] = lnr.err; err_arg[i] = arg.err; } } void log_1plusx_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_log_1plusx_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void log_1plusx_mx_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_log_1plusx_mx_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } gsl/src/trig.c0000644000176000001440000000573612627550645013016 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name. Thus gsl_sf_sin_e goes to sin_e. */ void sin_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_sin_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void cos_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_cos_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void hypot_e(double *x, double *y, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_hypot_e(x[i], y[i], &result) ; val[i] = result.val; err[i] = result.err; } } void sinc_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_sinc_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void complex_sin_e(double *zr, double *zi, int *len, double *val_lnr, double *val_arg, double *err_lnr, double *err_arg, int *status) { int i; gsl_sf_result lnr; gsl_sf_result arg; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_complex_sin_e(zr[i], zi[i], &lnr, &arg) ; val_lnr[i] = lnr.val; val_arg[i] = arg.val; err_lnr[i] = lnr.err; err_arg[i] = arg.err; } } void complex_cos_e(double *zr, double *zi, int *len, double *val_lnr, double *val_arg, double *err_lnr, double *err_arg, int *status) { int i; gsl_sf_result lnr; gsl_sf_result arg; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_complex_cos_e(zr[i], zi[i], &lnr, &arg) ; val_lnr[i] = lnr.val; val_arg[i] = arg.val; err_lnr[i] = lnr.err; err_arg[i] = arg.err; } } void complex_logsin_e(double *zr, double *zi, int *len, double *val_lnr, double *val_arg, double *err_lnr, double *err_arg, int *status) { int i; gsl_sf_result lnr; gsl_sf_result arg; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_complex_logsin_e(zr[i], zi[i], &lnr, &arg) ; val_lnr[i] = lnr.val; val_arg[i] = arg.val; err_lnr[i] = lnr.err; err_arg[i] = arg.err; } } void lnsinh_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_lnsinh_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void lncosh_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_lncosh_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } gsl/src/zeta.c0000644000176000001440000000402012627550645012775 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name. Thus gsl_sf_zeta_int_e goes to zeta. */ void zeta_int(int *n, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_zeta_int_e(n[i], &result) ; val[i] = result.val; err[i] = result.err; } } void zeta(double *s, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_zeta_e(s[i], &result) ; val[i] = result.val; err[i] = result.err; } } void zetam1_int(int *n, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_zetam1_int_e(n[i], &result) ; val[i] = result.val; err[i] = result.err; } } void zetam1(double *s, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_zetam1_e(s[i], &result) ; val[i] = result.val; err[i] = result.err; } } void hzeta(double *s, double *q, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_hzeta_e(s[i], q[i], &result) ; val[i] = result.val; err[i] = result.err; } } void eta_int(int *n, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_eta_int_e(n[i], &result) ; val[i] = result.val; err[i] = result.err; } } void eta(double *s, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_eta_e(s[i], &result) ; val[i] = result.val; err[i] = result.err; } } gsl/src/dilog.c0000644000176000001440000000153412627550645013137 0ustar ripleyusers#include #include /* function names generated by removing "gsl_sf" from the beginning of the name. Thus gsl_sf_dilog_e goes to dilog_e. */ void dilog_e(double *x, int *len, double *val, double *err, int *status) { int i; gsl_sf_result result; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_dilog_e(x[i] , &result) ; val[i] = result.val; err[i] = result.err; } } void complex_dilog_e(double *r, double *theta, int *len, double *val_re, double *val_im, double *err_re, double *err_im, int *status) { int i; gsl_sf_result re; gsl_sf_result im; gsl_set_error_handler_off(); for(i = 0; i< *len ; i++){ status[i] = gsl_sf_complex_dilog_e(r[i], theta[i], &re, &im) ; val_re[i] = re.val; val_im[i] = im.val; err_re[i] = re.err; err_im[i] = im.err; } } gsl/NAMESPACE0000644000176000001440000000005012251674014012303 0ustar ripleyusersexportPattern("^[^\\.]") useDynLib(gsl) gsl/INSTALL0000644000176000001440000000072112251674014012122 0ustar ripleyusersThe gsl R package is a wrapper for the GSL C library (note capitalization). Installing gsl from source requires you to download and install GSL first. Ensure that you can compile and run a simple test program such as the example program near the start of the gsl Reference Manual. Some linux users report that is is possoble to go to the Ubuntu Software Center and install "GNU Scientific Library (GSL) -- development package", which has the name "libgsl0-dev". gsl/R/0000755000176000001440000000000012251674041011272 5ustar ripleyusersgsl/R/trig.R0000644000176000001440000002076612251674014012375 0ustar ripleyusers"gsl_sf_sin" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("sin_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val attributes(val) <- attr err <- jj$err status <- jj$status attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "gsl_sf_cos" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("cos_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val attributes(val) <- attr err <- jj$err status <- jj$status attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "hypot" <- function(x, y, give=FALSE, strict=TRUE){ jj <- process.args(x,y) x.vec <- jj$arg1 y.vec <- jj$arg2 attr <- jj$attr jj <- .C("hypot_e", as.double(x.vec), as.double(y.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val attributes(val) <- attr err <- jj$err status <- jj$status attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "sinc" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("sinc_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val attributes(val) <- attr err <- jj$err status <- jj$status attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "complex_sin" <- function(zr, zi=NULL, r.and.i=TRUE, give=FALSE, strict=TRUE){ attr <- attributes(zr) if(is.null(zi)){ zi <- as.vector(Im(zr)) zr <- as.vector(Re(zr)) } else { zi <- as.vector(zi) zr <- as.vector(zr) } if(length(zr) !=length(zi)){stop("zr and zi must be of the same dimensions")} jj <- .C("complex_sin_e", as.double(zr), as.double(zi), as.integer(length(zr)), val_lnr=as.double(zr), val_arg=as.double(zr), err_lnr=as.double(zr), err_arg=as.double(zr), status=as.integer(0*zr), PACKAGE="gsl" ) val_lnr <- jj$val_lnr val_arg <- jj$val_arg err_lnr <- jj$err_lnr err_arg <- jj$err_arg status <- jj$status attributes(status) <- attr if(r.and.i){ # val <- exp(val_lnr)*cos(val_arg) + 1i*exp(val_lnr)*sin(val_arg) # err <- exp(xerr_lnr)*cos(err_arg) + 1i*exp(err_lnr)*sin(err_arg) val <- val_lnr + 1i*val_arg err <- err_lnr + 1i*err_arg attributes(val) <- attr attributes(err) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val, err=err, status=status)) } else { return(val) } } else { attributes(val_lnr) <- attr attributes(val_arg) <- attr attributes(err_lnr) <- attr attributes(err_arg) <- attr if(strict){ val_lnr <- strictify(val_lnr,status) val_arg <- strictify(val_arg,status) } if(give){ return(list(val_lnr=val_lnr, val_arg=val_arg, err_lnr=err_lnr,err_arg=err_arg, status=status)) } else { return(list(val_lnr=val_lnr, val_arg=val_arg)) } } } "complex_cos" <- function(zr, zi=NULL, r.and.i=TRUE, give=FALSE, strict=TRUE){ attr <- attributes(zr) if(is.null(zi)){ zi <- as.vector(Im(zr)) zr <- as.vector(Re(zr)) } else { zi <- as.vector(zi) zr <- as.vector(zr) } if(length(zr) !=length(zi)){stop("zr and zi must be of the same dimensions")} jj <- .C("complex_cos_e", as.double(zr), as.double(zi), as.integer(length(zr)), val_lnr=as.double(zr), val_arg=as.double(zr), err_lnr=as.double(zr), err_arg=as.double(zr), status=as.integer(0*zr), PACKAGE="gsl" ) val_lnr <- jj$val_lnr val_arg <- jj$val_arg err_lnr <- jj$err_lnr err_arg <- jj$err_arg status <- jj$status attributes(status) <- attr if(r.and.i){ # val <- exp(val_lnr)*cos(val_arg) + 1i*exp(val_lnr)*sin(val_arg) # err <- exp(xerr_lnr)*cos(err_arg) + 1i*exp(err_lnr)*sin(err_arg) val <- val_lnr + 1i*val_arg err <- err_lnr + 1i*err_arg attributes(val) <- attr attributes(err) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val, err=err, status=status)) } else { return(val) } } else { attributes(val_lnr) <- attr attributes(val_arg) <- attr attributes(err_lnr) <- attr attributes(err_arg) <- attr if(strict){ val_lnr <- strictify(val_lnr,status) val_arg <- strictify(val_arg,status) } if(give){ return(list(val_lnr=val_lnr, val_arg=val_arg, err_lnr=err_lnr,err_arg=err_arg, status=status)) } else { return(list(val_lnr=val_lnr, val_arg=val_arg)) } } } "complex_logsin" <- function(zr, zi=NULL, r.and.i=TRUE, give=FALSE, strict=TRUE){ attr <- attributes(zr) if(is.null(zi)){ zi <- as.vector(Im(zr)) zr <- as.vector(Re(zr)) } else { zi <- as.vector(zi) zr <- as.vector(zr) } if(length(zr) !=length(zi)){stop("zr and zi must be of the same dimensions")} jj <- .C("complex_logsin_e", as.double(zr), as.double(zi), as.integer(length(zr)), val_lnr=as.double(zr), val_arg=as.double(zr), err_lnr=as.double(zr), err_arg=as.double(zr), status=as.integer(0*zr), PACKAGE="gsl" ) val_lnr <- jj$val_lnr val_arg <- jj$val_arg err_lnr <- jj$err_lnr err_arg <- jj$err_arg status <- jj$status attributes(status) <- attr if(r.and.i){ val <- val_lnr + 1i*val_arg err <- err_lnr + 1i*err_arg attributes(val) <- attr attributes(err) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val, err=err, status=status)) } else { return(val) } } else { attributes(val_lnr) <- attr attributes(val_arg) <- attr attributes(err_lnr) <- attr attributes(err_arg) <- attr if(strict){ val_lnr <- strictify(val_lnr,status) val_arg <- strictify(val_arg,status) } if(give){ return(list(val_lnr=val_lnr, val_arg=val_arg, err_lnr=err_lnr,err_arg=err_arg, status=status)) } else { return(list(val_lnr=val_lnr, val_arg=val_arg)) } } } "lnsinh" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("lnsinh_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val attributes(val) <- attr err <- jj$err status <- jj$status attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "lncosh" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("lncosh_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val attributes(val) <- attr err <- jj$err status <- jj$status attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } gsl/R/poly.R0000644000176000001440000000056212251674014012403 0ustar ripleyusers"gsl_poly" <- function(c_gsl, x){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("gsl_poly", as.double(c_gsl), as.integer(length(c_gsl)), as.double(x.vec), as.integer(length(x.vec)), ans=as.double(x.vec), PACKAGE="gsl" ) ans <- jj$ans attributes(ans) <- attr return(ans) } gsl/R/pow_int.R0000644000176000001440000000126512251674014013100 0ustar ripleyusers"pow_int" <- function(x, n, give=FALSE, strict=TRUE){ jj <- process.args(x,n) x.vec <- jj$arg1 n.vec <- jj$arg2 attr <- jj$attr jj <- .C("pow_int", as.double(x.vec), as.integer(n.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } gsl/R/coulomb.R0000644000176000001440000002376612251674014013073 0ustar ripleyusers"hydrogenicR_1" <- function(Z, r, give=FALSE, strict=TRUE){ jj <- process.args(Z,r) Z.vec <- jj$arg1 r.vec <- jj$arg2 attr <- jj$attr jj <- .C("hydrogenicR_1", as.double(Z.vec), as.double(r.vec), as.integer(length(Z.vec)), val=as.double(Z.vec), err=as.double(Z.vec), status=as.integer(0*Z.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "hydrogenicR" <- function(n, l, Z, r, give=FALSE, strict=TRUE){ jj <- process.args(n,l,Z,r) n.vec <- jj$arg1 l.vec <- jj$arg2 Z.vec <- jj$arg3 r.vec <- jj$arg4 attr <- jj$attr jj <- .C("hydrogenicR", as.integer(n.vec), as.integer(l.vec), as.double(Z.vec), as.double(r.vec), as.integer(length(r.vec)), val=as.double(r.vec), err=as.double(r.vec), status=as.integer(0*r.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "coulomb_wave_FG" <- function(eta, x, L_F, k, give=FALSE, strict=TRUE){ jj <- process.args(eta, x, L_F, k) eta.vec <- jj$arg1 x.vec <- jj$arg2 L_F.vec <- jj$arg3 k.vec <- jj$arg4 attr <- jj$attr jj <- .C("coulomb_wave_FG", as.double(eta.vec), as.double(x.vec), as.double(L_F.vec), as.integer(k.vec), as.integer(length(eta.vec)), val_F=as.double(0*eta.vec), err_F=as.double(0*eta.vec), val_Fp=as.double(0*eta.vec), err_Fp=as.double(0*eta.vec), val_G=as.double(0*eta.vec), err_G=as.double(0*eta.vec), val_Gp=as.double(0*eta.vec), err_Gp=as.double(0*eta.vec), exp_F=as.double(0*eta.vec), exp_G=as.double(0*eta.vec), status=as.integer(0*eta.vec), PACKAGE="gsl" ) val_F <- jj$val_F val_Fp <- jj$val_Fp val_G <- jj$val_G val_Gp <- jj$val_Gp err_F <- jj$err_F err_Fp <- jj$err_Fp err_G <- jj$err_Gp err_Gp <- jj$err_Gp status <- jj$status exp_F <- jj$exp_F exp_G <- jj$exp_G attributes(val_F) <- attr attributes(val_Fp) <- attr attributes(val_G) <- attr attributes(val_Gp) <- attr attributes(err_F) <- attr attributes(err_Fp) <- attr attributes(err_G) <- attr attributes(err_Gp) <- attr attributes(exp_F) <- attr attributes(exp_G) <- attr attributes(status) <- attr if(strict){ val_F <- strictify(val_F,status) val_Fp <- strictify(val_Fp,status) val_G <- strictify(val_G,status) val_Gp <- strictify(val_Gp,status) err_F <- strictify(err_F,status) err_Fp <- strictify(err_Fp,status) err_G <- strictify(err_G,status) err_Gp <- strictify(err_Gp,status) exp_F <- strictify(exp_F,status) exp_G <- strictify(exp_G,status) } if(give){ return(list(val_F=val_F, val_Fp=val_Fp, val_G=val_G, val_Gp=val_Gp, err_F=err_F, err_Fp=err_Fp, err_G=err_G, err_Gp=err_Gp, exp_F=exp_F, exp_G=exp_G, status=status ) ) } else { return(list(val_F=val_F, val_Fp=val_Fp, val_G=val_G, val_Gp=val_Gp, exp_F=exp_F, exp_G=exp_G ) ) } } "coulomb_wave_F_array" <- function(L_min, kmax, eta, x, give=FALSE,strict=TRUE){ if(length(L_min)>1){stop("L_min should be of length 1")} if(length(kmax)>1){stop("kmax should be of length 1")} jj <- process.args(eta,x) eta.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr x.out <- rep(x.vec,(kmax+1)) jj <- .C("coulomb_wave_F_array", as.double(L_min), as.integer(kmax), as.double(eta.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.out), F_exp=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val dim(val) <- c(kmax+1, length(x.vec)) rownames(val) <- L_min:(L_min+kmax) colnames(val) <- names(x) status <- jj$status attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val, F_exp=jj$F_exp, status=status)) } else { return(val) } } "coulomb_wave_FG_array" <- function(L_min, kmax, eta, x, give=FALSE,strict=TRUE){ if(length(L_min)>1){stop("L_min should be of length 1")} if(length(kmax)>1){stop("kmax should be of length 1")} jj <- process.args(eta,x) eta.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr x.out <- rep(x.vec,(kmax+1)) jj <- .C("coulomb_wave_FG_array", as.double(L_min), as.integer(kmax), as.double(eta.vec), as.double(x.vec), as.integer(length(x.vec)), val_F=as.double(x.out), val_G=as.double(x.out), F_exp=as.double(x.vec), G_exp=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val_F <- jj$val_F val_G <- jj$val_G F_exp <- jj$F_exp G_exp <- jj$G_exp dim(val_F) <- c(kmax+1, length(x.vec)) dim(val_G) <- c(kmax+1, length(x.vec)) status <- jj$status attributes(status) <- attr if(strict){ val_F <- strictify(val_F,status) val_G <- strictify(val_G,status) } if(give){ return(list(val_F=val_F, val_G=val_G, F_exp=F_exp, status=status)) } else { return(list(val_F=val_F, val_G=val_G)) } } "coulomb_wave_FGp_array" <- function(L_min, kmax, eta, x, give=FALSE,strict=TRUE){ if(length(L_min)>1){stop("L_min should be of length 1")} if(length(kmax)>1){stop("kmax should be of length 1")} jj <- process.args(eta,x) eta.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr x.out <- rep(x.vec,(kmax+1)) jj <- .C("coulomb_wave_FGp_array", as.double(L_min), as.integer(kmax), as.double(eta.vec), as.double(x.vec), as.integer(length(x.vec)), val_F=as.double(x.out), val_Fp=as.double(x.out), val_G=as.double(x.out), val_Gp=as.double(x.out), F_exp=as.double(x.vec), G_exp=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val_F <- jj$val_F val_Fp <- jj$val_Fp val_G <- jj$val_G val_Gp <- jj$val_Gp F_exp <- jj$F_exp G_exp <- jj$G_exp dim(val_F) <- c(kmax+1, length(x.vec)) dim(val_Fp) <- c(kmax+1, length(x.vec)) dim(val_G) <- c(kmax+1, length(x.vec)) dim(val_Gp) <- c(kmax+1, length(x.vec)) status <- jj$status attributes(status) <- attr if(strict){ val_F <- strictify(val_F,status) val_Fp <- strictify(val_Fp,status) val_G <- strictify(val_G,status) val_Gp <- strictify(val_Gp,status) } if(give){ return(list(val_F=val_F, val_Fp=val_Fp, val_G=val_G, val_Gp=val_Gp, F_exp=F_exp, status=status)) } else { return(list(val_F=val_F, val_Fp=val_Fp, val_G=val_G, val_Gp=val_Gp)) } } "coulomb_wave_sphF_array" <- function(L_min, kmax, eta, x, give=FALSE,strict=TRUE){ if(length(L_min)>1){stop("L_min should be of length 1")} if(length(kmax)>1){stop("kmax should be of length 1")} jj <- process.args(eta,x) eta.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr x.out <- rep(x.vec,(kmax+1)) jj <- .C("coulomb_wave_sphF_array", as.double(L_min), as.integer(kmax), as.double(eta.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.out), F_exp=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val dim(val) <- c(kmax+1, length(x.vec)) rownames(val) <- L_min:(L_min+kmax) colnames(val) <- names(x) status <- jj$status attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val, F_exp=jj$F_exp, status=status)) } else { return(val) } } "coulomb_CL" <- function(L, eta, give=FALSE, strict=TRUE){ jj <- process.args(L,eta) L.vec <- jj$arg1 eta.vec <- jj$arg2 attr <- jj$attr jj <- .C("coulomb_CL", as.double(L.vec), as.double(eta.vec), as.integer(length(L.vec)), val=as.double(L.vec), err=as.double(L.vec), status=as.integer(0*L.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "coulomb_CL_array" <- function(L_min, kmax, eta, give=FALSE,strict=TRUE){ if(length(L_min)>1){stop("L_min should be of length 1")} if(length(kmax)>1){stop("kmax should be of length 1")} jj <- process.args(eta) eta.vec <- jj$arg1 attr <- jj$attr eta.out <- rep(eta.vec,(kmax+1)) jj <- .C("coulomb_CL_array", as.double(L_min), as.integer(kmax), as.double(eta.vec), as.integer(length(eta.vec)), val=as.double(eta.out), status=as.integer(0*eta.vec), PACKAGE="gsl" ) val <- jj$val dim(val) <- c(kmax+1, length(eta.vec)) rownames(val) <- L_min:(L_min+kmax) status <- jj$status attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val, status=status)) } else { return(val) } } gsl/R/aaa.R0000644000176000001440000000335212251674014012142 0ustar ripleyusers"process.args" <- function(...){ a <- list(...) attr <- attributes(a[[which.max(unlist(lapply(a,length)))]]) a <- lapply(a,as.vector) out <- do.call("rbind",a) out <- split(out,row(out)) names(out) <- paste("arg",1:length(a),sep="") return(c(out,attr=list(attr))) } #"process.2.args" <- function(a1,a2){ # lens <- c(length(a1),length(a2)) # attributes.list <- list(attributes(a1),attributes(a2)) # attributes.wanted <- attributes.list[[which.max(lens)]] # # jj <- rbind(as.vector(a1),as.vector(a2)) # return(list(arg1=as.vector(jj[1,]), # arg2=as.vector(jj[2,]), # attr=attributes.wanted # ) # ) #} # #process.3.args <- function(a1,a2,a3){ # lens <- c(length(a1),length(a2),length(a3)) # attributes.list <- list(attributes(a1),attributes(a2),attributes(a3)) # attributes.wanted <- attributes.list[[which.max(lens)]] # # jj <- rbind(as.vector(a1),as.vector(a2),as.vector(a3)) # return(list(arg1=as.vector(jj[1,]), # arg2=as.vector(jj[2,]), # arg3=as.vector(jj[3,]), # attr=attributes.wanted # ) # ) #} #process.4.args <- function(a1,a2,a3,a4){ # lens <- c(length(a1),length(a2),length(a3),length(a4)) # attributes.list <- list(attributes(a1),attributes(a2),attributes(a3),attributes(a4)) # attributes.wanted <- attributes.list[[which.max(lens)]] # # jj <- rbind(as.vector(a1),as.vector(a2),as.vector(a3),as.vector(a4)) # return(list(arg1=as.vector(jj[1,]), # arg2=as.vector(jj[2,]), # arg3=as.vector(jj[3,]), # arg4=as.vector(jj[4,]), # attr=attributes.wanted # ) # ) #} # # strictify <- function(val,status) { val[status>0] <- NaN return(val) } gsl/R/rng.R0000644000176000001440000000264212251674014012207 0ustar ripleyusers"rng_alloc" <- function(type = c("mt19937", "ranlxs0", "ranlxs1", "ranlxs2", "ranlxd1", "ranlxd2", "ranlux", "ranlux389", "cmrg", "mrg", "taus", "taus2", "gfsr4", "minstd")) { type <- switch( match.arg(type), mt19937 = 0, ranlxs0 = 1, ranlxs1 = 2, ranlxs2 = 3, ranlxd1 = 4, ranlxd2 = 5, ranlux = 6, ranlux389 = 7, cmrg = 8, mrg = 9, taus = 10, taus2 = 11, gfsr4 = 12, minstd = 13 ) retval <- .Call("rng_alloc", type, PACKAGE = "gsl") class(retval) <- c("gsl_rng", class(retval)) retval } "rng_set" <- function(r, seed) { .Call("rng_set", r, seed, PACKAGE = "gsl") } "rng_clone" <- function(r) { retval <- .Call("rng_clone", r, PACKAGE = "gsl") class(retval) <- "gsl_rng" retval } "rng_name" <- function(r) { .Call("rng_name", r, PACKAGE = "gsl") } "rng_min" <- function(r) { .Call("rng_min", r, PACKAGE = "gsl") } "rng_max" <- function(r) { .Call("rng_max", r, PACKAGE = "gsl") } "rng_get" <- function(r, length) { .Call("rng_get", r, length, PACKAGE = "gsl") } "rng_uniform" <- function(r, length) { .Call("rng_uniform", r, length, PACKAGE = "gsl") } "rng_uniform_pos" <- function(r, length) { .Call("rng_uniform_pos", r, length, PACKAGE = "gsl") } "rng_uniform_int" <- function(r, N, length) { if( ! (N > 0) ) stop("N needs to be positive") .Call("rng_uniform_int", r, N, length, PACKAGE = "gsl") } gsl/R/elljac.R0000644000176000001440000000417112251674014012652 0ustar ripleyusers"elljac" <- function(u, m, give=FALSE, strict=TRUE){ jj <- process.args(u, m) u.vec <- jj$arg1 m.vec <- jj$arg2 attr <- jj$attr jj <- .C("elljac_e", as.double(u.vec), as.double(m.vec), as.integer(length(u.vec)), sn=as.double(u.vec), cn=as.double(u.vec), dn=as.double(u.vec), status=as.integer(0*u.vec), PACKAGE="gsl" ) sn <- jj$sn cn <- jj$cn dn <- jj$dn attributes(sn) <- attr attributes(cn) <- attr attributes(dn) <- attr status <- jj$status attributes(status) <- attr if(strict){ sn <- strictify(sn,status) cn <- strictify(cn,status) dn <- strictify(dn,status) } if(give){ return(list(list(sn=sn,cn=cn,dn=dn),status=status)) } else { return(list(sn=sn,cn=cn,dn=dn)) } } "sn_cn_dn" <- function(z,m,thing){ # complex case jj.r <- elljac(Re(z),m) s <- jj.r$sn c <- jj.r$cn d <- jj.r$dn if(is.complex(z)){ jj.i <- elljac(Im(z),1-m) s1 <- jj.i$sn c1 <- jj.i$cn d1 <- jj.i$dn out <- switch(thing, sn = (s*d1 +1i*c*d*s1*c1)/(c1^2+m*s^2*s1^2), cn = (c*c1 -1i*s*d*s1*d1)/(c1^2+m*s^2*s1^2), dn = (d*c1*d1-1i*m*s*c*s1 )/(c1^2+m*s^2*s1^2), stop('argument "thing" should be one of sn, cn, dn') ) } else { out <- switch(thing, sn = s, cn = c, dn = d, stop('argument "thing" should be one of sn, cn, dn') ) } return(out) } gsl_sn <- function(z,m){sn_cn_dn(z,m,thing="sn")} gsl_cn <- function(z,m){sn_cn_dn(z,m,thing="cn")} gsl_dn <- function(z,m){sn_cn_dn(z,m,thing="dn")} gsl_ns <- function(z,m){1/gsl_sn(z,m)} gsl_nc <- function(z,m){1/gsl_cn(z,m)} gsl_nd <- function(z,m){1/gsl_dn(z,m)} gsl_sc <- function(z,m){gsl_sn(z,m)/gsl_cn(z,m)} gsl_sd <- function(z,m){gsl_sn(z,m)/gsl_dn(z,m)} gsl_cs <- function(z,m){gsl_cn(z,m)/gsl_sn(z,m)} gsl_cd <- function(z,m){gsl_cn(z,m)/gsl_dn(z,m)} gsl_ds <- function(z,m){gsl_dn(z,m)/gsl_sn(z,m)} gsl_dc <- function(z,m){gsl_dn(z,m)/gsl_cn(z,m)} gsl/R/hyperg.R0000644000176000001440000001705712251674014012725 0ustar ripleyusers"hyperg_0F1" <- function(c, x, give=FALSE, strict=TRUE){ jj <- process.args(c,x) c.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("hyperg_0F1_e", as.double(c.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "hyperg_1F1_int" <- function(m, n, x, give=FALSE, strict=TRUE){ jj <- process.args(m,n,x) m.vec <- jj$arg1 n.vec <- jj$arg2 x.vec <- jj$arg3 attr <- jj$attr jj <- .C("hyperg_1F1_int_e", as.integer(m.vec), as.integer(n.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "hyperg_1F1" <- function(a, b, x, give=FALSE, strict=TRUE){ jj <- process.args(a,b,x) a.vec <- jj$arg1 b.vec <- jj$arg2 x.vec <- jj$arg3 attr <- jj$attr jj <- .C("hyperg_1F1_e", as.double(a.vec), as.double(b.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "hyperg_U_int" <- function(m, n, x, give=FALSE, strict=TRUE){ jj <- process.args(m,n,x) m.vec <- jj$arg1 n.vec <- jj$arg2 x.vec <- jj$arg3 attr <- jj$attr jj <- .C("hyperg_U_int_e", as.integer(m.vec), as.integer(n.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "hyperg_U" <- function(a, b, x, give=FALSE, strict=TRUE){ jj <- process.args(a,b,x) a.vec <- jj$arg1 b.vec <- jj$arg2 x.vec <- jj$arg3 attr <- jj$attr jj <- .C("hyperg_U_e", as.double(a.vec), as.double(b.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "hyperg_2F1" <- function(a, b, c, x, give=FALSE, strict=TRUE){ jj <- process.args(a, b, c, x) a.vec <- jj$arg1 b.vec <- jj$arg2 c.vec <- jj$arg3 x.vec <- jj$arg4 attr <- jj$attr jj <- .C("hyperg_2F1_e", as.double(a.vec), as.double(b.vec), as.double(c.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "hyperg_2F1_conj" <- function(aR, aI, c, x, give=FALSE, strict=TRUE){ jj <- process.args(aR,aI,c,x) aR.vec <- jj$arg1 aI.vec <- jj$arg2 c.vec <- jj$arg3 x.vec <- jj$arg4 attr <- jj$attr jj <- .C("hyperg_2F1_conj_e", as.double(aR.vec), as.double(aI.vec), as.double(c.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "hyperg_2F1_renorm" <- function(a, b, c, x, give=FALSE, strict=TRUE){ jj <- process.args(a,b,c,x) a.vec <- jj$arg1 b.vec <- jj$arg2 c.vec <- jj$arg3 x.vec <- jj$arg4 attr <- jj$attr jj <- .C("hyperg_2F1_renorm_e", as.double(a.vec), as.double(b.vec), as.double(c.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "hyperg_2F1_conj_renorm" <- function(aR, aI, c, x, give=FALSE, strict=TRUE){ jj <- process.args(aR,aI,c,x) aR.vec <- jj$arg1 aI.vec <- jj$arg2 c.vec <- jj$arg3 x.vec <- jj$arg4 attr <- jj$attr jj <- .C("hyperg_2F1_conj_renorm_e", as.double(aR.vec), as.double(aI.vec), as.double(c.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "hyperg_2F0" <- function(a, b, x, give=FALSE, strict=TRUE){ jj <- process.args(a,b,x) a.vec <- jj$arg1 b.vec <- jj$arg2 x.vec <- jj$arg3 attr <- jj$attr jj <- .C("hyperg_2F0_e", as.double(a.vec), as.double(b.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } gsl/R/lambert.R0000644000176000001440000000233312251674014013044 0ustar ripleyusers"lambert_W0" <- function(x,give=FALSE,strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("lambert_W0", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "lambert_Wm1" <- function(x,give=FALSE,strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("lambert_Wm1", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } gsl/R/laguerre.R0000644000176000001440000000540612251674014013230 0ustar ripleyusers"laguerre_1" <- function(a, x, give=FALSE, strict=TRUE){ jj <- process.args(a,x) a.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("laguerre_1", as.double(a.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "laguerre_2" <- function(a, x, give=FALSE, strict=TRUE){ jj <- process.args(a,x) a.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("laguerre_2", as.double(a.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "laguerre_3" <- function(a, x, give=FALSE, strict=TRUE){ jj <- process.args(a,x) a.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("laguerre_3", as.double(a.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "laguerre_n" <- function(n, a, x, give=FALSE, strict=TRUE){ jj <- process.args(n,a,x) n.vec <- jj$arg1 a.vec <- jj$arg2 x.vec <- jj$arg3 attr <- jj$attr jj <- .C("laguerre_n", as.integer(n.vec), as.double(a.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } gsl/R/psi.R0000644000176000001440000000726412251674014012221 0ustar ripleyusers"psi_int" <- function(n, give=FALSE, strict=TRUE){ attr <- attributes(n) n.vec <- as.vector(n) jj <- .C("psi_int", as.integer(n.vec), as.integer(length(n.vec)), val=as.double(n.vec), err=as.double(n.vec), status=as.integer(0*n.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "psi" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("psi", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "psi_1piy" <- function(y, give=FALSE, strict=TRUE){ attr <- attributes(y) y.vec <- as.vector(y) jj <- .C("psi_1piy", as.double(y.vec), as.integer(length(y.vec)), val=as.double(y.vec), err=as.double(y.vec), status=as.integer(0*y.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "psi_1_int" <- function(n, give=FALSE, strict=TRUE){ attr <- attributes(n) n.vec <- as.vector(n) jj <- .C("psi_1_int", as.integer(n.vec), as.integer(length(n.vec)), val=as.double(n.vec), err=as.double(n.vec), status=as.integer(0*n.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "psi_1" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("psi_1", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "psi_n" <- function(m, x, give=FALSE, strict=TRUE){ jj <- process.args(m,x) m.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("psi_n", as.integer(m.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } gsl/R/debye.R0000644000176000001440000000466012251674014012513 0ustar ripleyusers"debye_1" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("debye_1", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "debye_2" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("debye_2", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "debye_3" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("debye_3", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "debye_4" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("debye_4", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } gsl/R/airy.R0000644000176000001440000001751312251674014012370 0ustar ripleyusers"airy_Ai" <- function(x, mode=0, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("airy_Ai_e", as.double(x.vec), as.integer(length(x.vec)), as.integer(mode), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "airy_Bi" <- function(x, mode=0, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("airy_Bi_e", as.double(x.vec), as.integer(length(x.vec)), as.integer(mode), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "airy_Ai_scaled" <- function(x, mode=0, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("airy_Ai_scaled_e", as.double(x.vec), as.integer(length(x.vec)), as.integer(mode), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "airy_Bi_scaled" <- function(x, mode=0, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("airy_Bi_scaled_e", as.double(x.vec), as.integer(length(x.vec)), as.integer(mode), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "airy_Ai_deriv" <- function(x, mode=0, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("airy_Ai_deriv_e", as.double(x.vec), as.integer(length(x.vec)), as.integer(mode), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "airy_Bi_deriv" <- function(x, mode=0, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("airy_Bi_deriv_e", as.double(x.vec), as.integer(length(x.vec)), as.integer(mode), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "airy_Ai_deriv_scaled" <- function(x, mode=0, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("airy_Ai_deriv_scaled_e", as.double(x.vec), as.integer(length(x.vec)), as.integer(mode), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "airy_Bi_deriv_scaled" <- function(x, mode=0, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("airy_Bi_deriv_scaled_e", as.double(x.vec), as.integer(length(x.vec)), as.integer(mode), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "airy_zero_Ai" <- function(n, give=FALSE, strict=TRUE){ n.vec <- as.vector(pmax(n,1)) attr <- attributes(n) jj <- .C("airy_zero_Ai_e", as.integer(n.vec), as.integer(length(n.vec)), val=as.double(n.vec), err=as.double(n.vec), status=as.integer(n.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } val[n<1] <- NA if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "airy_zero_Bi" <- function(n, give=FALSE, strict=TRUE){ n.vec <- as.vector(pmax(n,1)) attr <- attributes(n) jj <- .C("airy_zero_Bi_e", as.integer(n.vec), as.integer(length(n.vec)), val=as.double(n.vec), err=as.double(n.vec), status=as.integer(n.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } val[n<1] <- NA if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "airy_zero_Ai_deriv" <- function(n, give=FALSE, strict=TRUE){ n.vec <- as.vector(pmax(n,1)) attr <- attributes(n) jj <- .C("airy_zero_Ai_deriv_e", as.integer(n.vec), as.integer(length(n.vec)), val=as.double(n.vec), err=as.double(n.vec), status=as.integer(n.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } val[n<1] <- NA if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "airy_zero_Bi_deriv" <- function(n, give=FALSE, strict=TRUE){ n.vec <- as.vector(pmax(n,1)) attr <- attributes(n) jj <- .C("airy_zero_Bi_deriv_e", as.integer(n.vec), as.integer(length(n.vec)), val=as.double(n.vec), err=as.double(n.vec), status=as.integer(n.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } val[n<1] <- NA if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } gsl/R/zeta.R0000644000176000001440000001046712251674014012370 0ustar ripleyusers"zeta_int" <- function(n, give=FALSE, strict=TRUE){ attr <- attributes(n) n.vec <- as.vector(n) jj <- .C("zeta_int", as.integer(n.vec), as.integer(length(n.vec)), val=as.double(n.vec), err=as.double(n.vec), status=as.integer(0*n.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "zeta" <- function(s, give=FALSE, strict=TRUE){ attr <- attributes(s) s.vec <- as.vector(s) jj <- .C("zeta", as.double(s.vec), as.integer(length(s.vec)), val=as.double(s.vec), err=as.double(s.vec), status=as.integer(0*s.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "zetam1_int" <- function(n, give=FALSE, strict=TRUE){ attr <- attributes(n) n.vec <- as.vector(n) jj <- .C("zetam1_int", as.integer(n.vec), as.integer(length(n.vec)), val=as.double(n.vec), err=as.double(n.vec), status=as.integer(0*n.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "zetam1" <- function(s, give=FALSE, strict=TRUE){ attr <- attributes(s) s.vec <- as.vector(s) jj <- .C("zetam1", as.double(s.vec), as.integer(length(s.vec)), val=as.double(s.vec), err=as.double(s.vec), status=as.integer(0*s.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "hzeta" <- function(s, q, give=FALSE, strict=TRUE){ jj <- process.args(s,q) s.vec <- jj$arg1 q.vec <- jj$arg2 attr <- jj$attr jj <- .C("hzeta", as.double(s.vec), as.double(q.vec), as.integer(length(s.vec)), val=as.double(s.vec), err=as.double(s.vec), status=as.integer(0*s.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "eta_int" <- function(n, give=FALSE, strict=TRUE){ attr <- attributes(n) n.vec <- as.vector(n) jj <- .C("eta_int", as.integer(n.vec), as.integer(length(n.vec)), val=as.double(n.vec), err=as.double(n.vec), status=as.integer(0*n.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "eta" <- function(s, give=FALSE, strict=TRUE){ attr <- attributes(s) s.vec <- as.vector(s) jj <- .C("eta", as.double(s.vec), as.integer(length(s.vec)), val=as.double(s.vec), err=as.double(s.vec), status=as.integer(0*s.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } gsl/R/log.R0000644000176000001440000001013712251674014012200 0ustar ripleyusers"gsl_sf_log" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("log_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "log_abs" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("log_abs_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "complex_log" <- function(zr, zi=NULL, r.and.i=TRUE, give=FALSE, strict=TRUE){ attr <- attributes(zr) if(is.null(zi)){ zi <- as.vector(Im(zr)) zr <- as.vector(Re(zr)) } else { zi <- as.vector(zi) zr <- as.vector(zr) } if(length(zr) !=length(zi)){stop("zr and zi must be of the same dimensions")} jj <- .C("complex_log_e", as.double(zr), as.double(zi), as.integer(length(zr)), val_lnr=as.double(zr), val_arg=as.double(zr), err_lnr=as.double(zr), err_arg=as.double(zr), status=as.integer(0*zr), PACKAGE="gsl" ) val_lnr <- jj$val_lnr val_arg <- jj$val_arg err_lnr <- jj$err_lnr err_arg <- jj$err_arg status <- jj$status attributes(status) <- attr if(r.and.i){ # val <- exp(val_lnr)*cos(val_arg) + 1i*exp(val_lnr)*sin(val_arg) # err <- exp(xerr_lnr)*cos(err_arg) + 1i*exp(err_lnr)*sin(err_arg) val <- val_lnr + 1i*val_arg err <- err_lnr + 1i*err_arg attributes(val) <- attr attributes(err) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val, err=err, status=status)) } else { return(val) } } else { attributes(val_lnr) <- attr attributes(val_arg) <- attr attributes(err_lnr) <- attr attributes(err_arg) <- attr if(strict){ val_lnr <- strictify(val_lnr,status) val_arg <- strictify(val_arg,status) } if(give){ return(list(val_lnr=val_lnr, val_arg=val_arg, err_lnr=err_lnr,err_arg=err_arg, status=status)) } else { return(list(val_lnr=val_lnr, val_arg=val_arg)) } } } "log_1plusx" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("log_1plusx_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "log_1plusx_mx" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("log_1plusx_mx_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } gsl/R/expint.R0000644000176000001440000001414612251674014012732 0ustar ripleyusers"expint_E1" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) jj <- .C("expint_E1_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attributes(x) attributes(err) <- attributes(x) attributes(status) <- attributes(x) if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "expint_E2" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) jj <- .C("expint_E2_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attributes(x) attributes(err) <- attributes(x) attributes(status) <- attributes(x) if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "expint_En" <- function(n, x, give=FALSE, strict=TRUE){ jj <- process.args(n, x) n.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("expint_En_e", as.integer(n.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "expint_Ei" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) jj <- .C("expint_Ei_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attributes(x) attributes(err) <- attributes(x) attributes(status) <- attributes(x) if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "Shi" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) jj <- .C("Shi_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attributes(x) attributes(err) <- attributes(x) attributes(status) <- attributes(x) if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "Chi" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) jj <- .C("Chi_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attributes(x) attributes(err) <- attributes(x) attributes(status) <- attributes(x) if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "expint_3" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) jj <- .C("expint_3_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attributes(x) attributes(err) <- attributes(x) attributes(status) <- attributes(x) if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "Si" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) jj <- .C("Si_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attributes(x) attributes(err) <- attributes(x) attributes(status) <- attributes(x) if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "Ci" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) jj <- .C("Ci_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attributes(x) attributes(err) <- attributes(x) attributes(status) <- attributes(x) if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "atanint" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) jj <- .C("atanint_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attributes(x) attributes(err) <- attributes(x) attributes(status) <- attributes(x) if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } gsl/R/fermi_dirac.R0000644000176000001440000001337512251674014013672 0ustar ripleyusers"fermi_dirac_m1" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("fermi_dirac_m1", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "fermi_dirac_0" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("fermi_dirac_0", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "fermi_dirac_1" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("fermi_dirac_1", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "fermi_dirac_2" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("fermi_dirac_2", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "fermi_dirac_int" <- function(j, x, give=FALSE, strict=TRUE){ jj <- process.args(j, x) j.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("fermi_dirac_int", as.integer(j.vec), as.double(x.vec), as.integer(length(j.vec)), val=as.double(j.vec), err=as.double(j.vec), status=as.integer(0*j.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "fermi_dirac_mhalf" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("fermi_dirac_mhalf", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "fermi_dirac_half" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("fermi_dirac_half", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "fermi_dirac_3half" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("fermi_dirac_3half", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "fermi_dirac_inc_0" <- function(x, b, give=FALSE, strict=TRUE){ jj <- process.args(x,b) x.vec <- jj$arg1 b.vec <- jj$arg2 attr <- jj$attr jj <- .C("fermi_dirac_inc_0", as.double(x.vec), as.double(b.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } gsl/R/bessel.R0000644000176000001440000011307312251674014012677 0ustar ripleyusers"bessel_J0" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_J0_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_J1" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_J1_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_Jn" <- function(n, x, give=FALSE, strict=TRUE){ jj <- process.args(n, x) n.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("bessel_Jn_e", as.integer(n.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_Jn_array" <- function(nmin,nmax, x, give=FALSE,strict=TRUE){ if(length(nmin)>1){stop("nmin should be of length 1")} if(length(nmax)>1){stop("nmax should be of length 1")} x.vec <- as.vector(x) attr <- attributes(x) x.out <- rep(x.vec,(nmax-nmin+1)) jj <- .C("bessel_Jn_array_e", as.integer(nmin), as.integer(nmax), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.out), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val dim(val) <- c(nmax-nmin+1, length(x.vec)) status <- jj$status attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,status=status)) } else { return(val) } } "bessel_Y0" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_Y0_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_Y1" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_Y1_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_Yn" <- function(n, x, give=FALSE, strict=TRUE){ jj <- process.args(n,x) n.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("bessel_Yn_e", as.integer(n.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_Yn_array" <- function(nmin,nmax, x, give=FALSE,strict=TRUE){ if(length(nmin)>1){stop("nmin should be of length 1")} if(length(nmax)>1){stop("nmax should be of length 1")} x.vec <- as.vector(x) attr <- attributes(x) x.out <- rep(x.vec,(nmax-nmin+1)) jj <- .C("bessel_Yn_array_e", as.integer(nmin), as.integer(nmax), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.out), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val dim(val) <- c(nmax-nmin+1, length(x.vec)) status <- jj$status attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,status=status)) } else { return(val) } } "bessel_I0" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_I0_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_I1" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_I1_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_In" <- function(n, x, give=FALSE, strict=TRUE){ jj <- process.args(n, x) n.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("bessel_In_e", as.integer(n.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_In_array" <- function(nmin,nmax, x, give=FALSE,strict=TRUE){ if(length(nmin)>1){stop("nmin should be of length 1")} if(length(nmax)>1){stop("nmax should be of length 1")} x.vec <- as.vector(x) attr <- attributes(x) x.out <- rep(x.vec,(nmax-nmin+1)) jj <- .C("bessel_In_array_e", as.integer(nmin), as.integer(nmax), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.out), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val dim(val) <- c(nmax-nmin+1, length(x.vec)) status <- jj$status attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,status=status)) } else { return(val) } } "bessel_I0_scaled" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_I0_scaled_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_I1_scaled" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_I1_scaled_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_In_scaled" <- function(n, x, give=FALSE, strict=TRUE){ jj <- process.args(n,x) n.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("bessel_In_scaled_e", as.integer(n.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_In_scaled_array" <- function(nmin,nmax, x, give=FALSE,strict=TRUE){ if(length(nmin)>1){stop("nmin should be of length 1")} if(length(nmax)>1){stop("nmax should be of length 1")} x.vec <- as.vector(x) attr <- attributes(x) x.out <- rep(x.vec,(nmax-nmin+1)) jj <- .C("bessel_In_scaled_array_e", as.integer(nmin), as.integer(nmax), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.out), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val dim(val) <- c(nmax-nmin+1, length(x.vec)) status <- jj$status attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,status=status)) } else { return(val) } } "bessel_K0" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_K0_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_K1" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_K1_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_Kn" <- function(n, x, give=FALSE, strict=TRUE){ jj <- process.args(n, x) n.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("bessel_Kn_e", as.integer(n.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_Kn_array" <- function(nmin,nmax, x, give=FALSE,strict=TRUE){ if(length(nmin)>1){stop("nmin should be of length 1")} if(length(nmax)>1){stop("nmax should be of length 1")} x.vec <- as.vector(x) attr <- attributes(x) x.out <- rep(x.vec,(nmax-nmin+1)) jj <- .C("bessel_Kn_array_e", as.integer(nmin), as.integer(nmax), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.out), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val dim(val) <- c(nmax-nmin+1, length(x.vec)) status <- jj$status attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,status=status)) } else { return(val) } } "bessel_K0_scaled" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_K0_scaled_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_K1_scaled" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_K1_scaled_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_Kn_scaled" <- function(n, x, give=FALSE, strict=TRUE){ jj <- process.args(n, x) n.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("bessel_Kn_scaled_e", as.integer(n.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_Kn_scaled_array" <- function(nmin,nmax, x, give=FALSE,strict=TRUE){ if(length(nmin)>1){stop("nmin should be of length 1")} if(length(nmax)>1){stop("nmax should be of length 1")} x.vec <- as.vector(x) attr <- attributes(x) nmin <- as.integer(nmin) nmax <- as.integer(nmax) x.out <- rep(x.vec,(nmax-nmin+1)) jj <- .C("bessel_Kn_scaled_array_e", as.integer(nmin), as.integer(nmax), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.out), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val dim(val) <- c(nmax-nmin+1, length(x.vec)) status <- jj$status attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,status=status)) } else { return(val) } } "bessel_j0" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_j0_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_j1" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_j1_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_j2" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_j2_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_jl" <- function(l, x, give=FALSE, strict=TRUE){ jj <- process.args(l, x) l.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("bessel_jl_e", as.integer(l.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_jl_array" <- function(lmax, x, give=FALSE,strict=TRUE){ if(length(lmax)>1){stop("lmax should be of length 1")} x.vec <- as.vector(x) attr <- attributes(x) x.out <- rep(x.vec,(lmax+1)) jj <- .C("bessel_jl_array_e", as.integer(lmax), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.out), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val dim(val) <- c(lmax+1, length(x.vec)) status <- jj$status attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,status=status)) } else { return(val) } } "bessel_jl_steed_array" <- function(lmax, x, give=FALSE,strict=TRUE){ if(length(lmax)>1){stop("lmax should be of length 1")} x.vec <- as.vector(x) attr <- attributes(x) x.out <- rep(x.vec,(lmax+1)) jj <- .C("bessel_jl_steed_array_e", as.integer(lmax), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.out), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val dim(val) <- c(lmax+1, length(x.vec)) status <- jj$status attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,status=status)) } else { return(val) } } "bessel_y0" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_y0_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_y1" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_y1_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_y2" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_y2_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_yl" <- function(l, x, give=FALSE, strict=TRUE){ jj <- process.args(l, x) l.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$arg3 jj <- .C("bessel_yl_e", as.integer(l.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_yl_array" <- function(lmax, x, give=FALSE, strict=TRUE){ if(length(lmax)>1){stop("lmax should be of length 1")} x.vec <- as.vector(x) attr <- attributes(x) x.out <- rep(x.vec,(lmax+1)) jj <- .C("bessel_yl_array_e", as.integer(lmax), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.out), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val dim(val) <- c(lmax+1, length(x.vec)) status <- jj$status attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,status=status)) } else { return(val) } } "bessel_i0_scaled" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_i0_scaled_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_i1_scaled" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_i1_scaled_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_i2_scaled" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_i2_scaled_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_il_scaled" <- function(l, x, give=FALSE, strict=TRUE){ jj <- process.args(l, x) l.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("bessel_il_scaled_e", as.integer(l.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_il_scaled_array" <- function(lmax, x, give=FALSE,strict=TRUE){ if(length(lmax)>1){stop("lmax should be of length 1")} x.vec <- as.vector(x) attr <- attributes(x) x.out <- rep(x.vec,(lmax+1)) jj <- .C("bessel_il_scaled_array_e", as.integer(lmax), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.out), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val dim(val) <- c(lmax+1, length(x.vec)) status <- jj$status attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,status=status)) } else { return(val) } } "bessel_k0_scaled" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_k0_scaled_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_k1_scaled" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_k1_scaled_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_k2_scaled" <- function(x, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("bessel_k2_scaled_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_kl_scaled" <- function(l, x, give=FALSE, strict=TRUE){ jj <- process.args(l, x) l.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("bessel_kl_scaled_e", as.integer(l.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "bessel_kl_scaled_array" <- function(lmax, x, give=FALSE,strict=TRUE){ if(length(lmax)>1){stop("lmax should be of length 1")} x.vec <- as.vector(x) attr <- attributes(x) x.out <- rep(x.vec, (lmax+1)) jj <- .C("bessel_kl_scaled_array_e", as.integer(lmax), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.out), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val dim(val) <- c(lmax+1, length(x.vec)) status <- jj$status attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,status=status)) } else { return(val) } } "bessel_Jnu" <- function (nu, x, give = FALSE, strict = TRUE){ jj <- process.args(nu, x) nu.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("bessel_Jnu_e", as.double(nu.vec), as.double(x.vec), as.integer(length(x.vec)), val = as.double(x.vec), err = as.double(x.vec), status = as.integer(0*x.vec), PACKAGE = "gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if (strict) { val <- strictify(val, status) } if (give) { return(list(val = val, err = err, status = status)) } else { return(val) } } "bessel_sequence_Jnu" <- function (nu, v, mode = 0, give = FALSE, strict=TRUE){ if (length(nu) > 1 ) { stop("nu should be of length 1") } if (length(mode) > 1 ) { stop("mode should be of length 1") } v.vec <- as.vector(v) if(any(v.vec<0)){stop("all elements of v must be positive")} if( !all(diff(v.vec)>0) ){stop("elements of v must be sorted in increasing order")} jj <- .C("bessel_sequence_Jnu_e", as.double(nu), val=as.double(v.vec), as.integer(length(v.vec)), as.integer(mode), status=as.integer(nu), PACKAGE = "gsl" ) val <- jj$val status <- jj$status attributes(val) <- attributes(v) attributes(status) <- attributes(v) if(strict){ if(status>0){val[] <- NA} } if(give){ return(list(val=val, status=status)) } else { return(val) } } "bessel_Ynu" <- function (nu, x, give = FALSE, strict = TRUE){ jj <- process.args(nu, x) nu.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("bessel_Ynu_e", as.double(nu), as.double(x.vec), as.integer(length(x.vec)), val = as.double(x.vec), err = as.double(x.vec), status = as.integer(0*x.vec), PACKAGE = "gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if (strict) { val <- strictify(val, status) } if (give) { return(list(val = val, err = err, status = status)) } else { return(val) } } "bessel_Inu" <- function (nu, x, give = FALSE, strict = TRUE){ jj <- process.args(nu, x) nu.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("bessel_Inu_e", as.double(nu.vec), as.double(x.vec), as.integer(length(x.vec)), val = as.double(x.vec), err = as.double(x.vec), status = as.integer(0*x.vec), PACKAGE = "gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if (strict) { val <- strictify(val, status) } if (give) { return(list(val = val, err = err, status = status)) } else { return(val) } } "bessel_Inu_scaled" <- function (nu, x, give = FALSE, strict = TRUE){ jj <- process.args(nu, x) nu.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("bessel_Inu_scaled_e", as.double(nu.vec), as.double(x.vec), as.integer(length(x.vec)), val = as.double(x.vec), err = as.double(x.vec), status = as.integer(0*x.vec), PACKAGE = "gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if (strict) { val <- strictify(val, status) } if (give) { return(list(val = val, err = err, status = status)) } else { return(val) } } "bessel_Knu" <- function (nu, x, give = FALSE, strict = TRUE){ jj <- process.args(nu, x) nu.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("bessel_Knu_e", as.double(nu.vec), as.double(x.vec), as.integer(length(x.vec)), val = as.double(x.vec), err = as.double(x.vec), status = as.integer(0*x.vec), PACKAGE = "gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if (strict) { val <- strictify(val, status) } if (give) { return(list(val = val, err = err, status = status)) } else { return(val) } } "bessel_lnKnu" <- function (nu, x, give = FALSE, strict = TRUE){ jj <- process.args(nu, x) nu.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("bessel_lnKnu_e", as.double(nu.vec), as.double(x.vec), as.integer(length(x.vec)), val = as.double(x.vec), err = as.double(x.vec), status = as.integer(0*x.vec), PACKAGE = "gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if (strict) { val <- strictify(val, status) } if (give) { return(list(val = val, err = err, status = status)) } else { return(val) } } "bessel_Knu_scaled" <- function (nu, x, give = FALSE, strict = TRUE){ jj <- process.args(nu, x) nu.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("bessel_Knu_scaled_e", as.double(nu.vec), as.double(x.vec), as.integer(length(x.vec)), val = as.double(x.vec), err = as.double(x.vec), status = as.integer(0*x.vec), PACKAGE = "gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if (strict) { val <- strictify(val, status) } if (give) { return(list(val = val, err = err, status = status)) } else { return(val) } } "bessel_zero_J0" <- function (s, give = FALSE, strict = TRUE){ s.vec <- as.vector(s) attr <- attributes(s) jj <- .C("bessel_zero_J0_e", as.integer(s.vec), as.integer(length(s.vec)), val = as.double(s.vec), err = as.double(s.vec), status = as.integer(s.vec), PACKAGE = "gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if (strict) { val <- strictify(val, status) } if (give) { return(list(val = val, err = err, status = status)) } else { return(val) } } "bessel_zero_J1" <- function (s, give = FALSE, strict = TRUE){ s.vec <- as.vector(s) attr <- attributes(s) jj <- .C("bessel_zero_J1_e", as.integer(s.vec), as.integer(length(s.vec)), val = as.double(s.vec), err = as.double(s.vec), status = as.integer(s.vec), PACKAGE = "gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if (strict) { val <- strictify(val, status) } if (give) { return(list(val = val, err = err, status = status)) } else { return(val) } } "bessel_zero_Jnu" <- function (nu, s, give = FALSE, strict = TRUE){ jj <- process.args(nu,s) nu.vec <- jj$arg1 s.vec <- jj$arg2 attr <- jj$attr jj <- .C("bessel_zero_Jnu_e", as.double(nu.vec), as.integer(s.vec), as.integer(length(s.vec)), val = as.double(s.vec), err = as.double(s.vec), status = as.integer(s.vec), PACKAGE = "gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if (strict) { val <- strictify(val, status) } if (give) { return(list(val = val, err = err, status = status)) } else { return(val) } } gsl/R/error.R0000644000176000001440000000752212251674014012554 0ustar ripleyusers"erf" <- function(x, mode=0, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("erf_e", as.double(x.vec), as.integer(length(x.vec)), as.integer(mode), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "erfc" <- function(x, mode=0, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("erfc_e", as.double(x.vec), as.integer(length(x.vec)), as.integer(mode), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "log_erfc" <- function(x, mode=0, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("log_erfc_e", as.double(x.vec), as.integer(length(x.vec)), as.integer(mode), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "log_erf_Z" <- function(x, mode=0, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("erf_e", as.double(x.vec), as.integer(length(x.vec)), as.integer(mode), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "erf_Q" <- function(x, mode=0, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("erf_Q_e", as.double(x.vec), as.integer(length(x.vec)), as.integer(mode), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "hazard" <- function(x, mode=0, give=FALSE, strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("hazard_e", as.double(x.vec), as.integer(length(x.vec)), as.integer(mode), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } gsl/R/multimin.R0000644000176000001440000001030312251674014013250 0ustar ripleyusers# An R wrapper for GSL's multimin family of functions for minimizing functions. # # Written in 2007 by Andrew Clausen # - Added Nelder-Mead convergence interface in 2010. #dyn.load("gsl.so") multimin <- function(..., prec=0.0001) { is.converged <- function(state, old.x) { if (state$method == "nm") return(multimin.fminimizer.size(state) < prec) convergence <- ifelse(state$is.fdf, state$df, old.x - state$x) return (sum(abs(convergence)) < prec) } state <- multimin.init(...) old.x <- state$x while (TRUE) { state <- multimin.iterate(state) if (is.converged(state, old.x)) break old.x <- state$x } state } multimin.init <- function(x, f, df=NA, fdf=NA, method=NA, step.size=NA, tol=NA) { multimin.method.names <- list( "conjugate-fr", # fletcher-reeves "conjugate-pr", # polak-ribiere "bfgs", # broyden-fletcher-goldfarb-shanno "steepest-descent", "nm" # nelder-mead ) multimin.method.f <- c(FALSE, FALSE, FALSE, FALSE, TRUE) multimin.method.fdf <- c(TRUE, TRUE, TRUE, TRUE, FALSE) stopifnot(length(formals(f)) == 1) stopifnot(is.numeric(x)) n <- length(x) is.fdf = !missing(df) if (is.fdf) { stopifnot(length(formals(df)) == 1) if (is.na(fdf)) fdf <- function(x) list(f=f(x), df=df(x)) stopifnot(length(formals(fdf)) == 1) fdf_ <- function(x) { result <- new.env() vals <- fdf(x) result$f <- vals$f result$df <- vals$df result } if (missing(method)) method <- "bfgs" if (missing(step.size)) step.size <- 1 if (missing(tol)) tol <- 1 stopifnot(is.numeric(tol)) } else { if (missing(step.size)) step.size <- rep(1, n) if (missing(method)) method <- "nm" } stopifnot(is.numeric(step.size)) if (is.character(method)) { method.name <- method method <- match(method, multimin.method.names) if (is.na(method)) stop(paste(c( "The optimization method '", method.name, "' is not an option. Try one of these:\n", paste(multimin.method.names, collapse=", "), ".", sep=""))) } method <- as.integer(method) stopifnot(1 <= method && method <= 5) if (!is.fdf && !multimin.method.f[[method]]) stop(paste( "The optimization method '", multimin.method.names[[method]], "' needs a derivative function.\nIf you don't want to provide ", "one, these methods don't need derivatives:\n", paste(subset(multimin.method.names, multimin.method.f), collapse=", "), ".", sep="")) if (is.fdf && !multimin.method.fdf[[method]]) stop(paste( "The optimization method '", multimin.method.names[[method]], "' doesn't use derivatives.\nIf you want to exploit a ", "derivative, use one of these methods:\n", paste(subset(multimin.method.names, multimin.method.fdf), collapse=", "), ".", sep="")) internal.state <- new.env() internal.state$f <- body(function(x) f(x)) internal.state$n <- n internal.state$rho <- new.env() if (is.fdf) { internal.state$df <- body(function(x) df(x)) internal.state$fdf <- body(fdf_) } if (is.fdf) { .Call("multimin_fdf_new", internal.state, x, method, step.size, tol) } else { .Call("multimin_f_new", internal.state, x, method, step.size) } list(internal.state = internal.state, x=x, f=NA, df=rep(NA, n), is.fdf=is.fdf, method=multimin.method.names[[method]]) } multimin.iterate <- function(state) { internal.state <- state$internal.state if (state$is.fdf) { state$code <- .Call("multimin_fdf_iterate", internal.state) state$x <- .Call("multimin_fdf_state_argmin", internal.state) state$f <- .Call("multimin_fdf_state_min", internal.state) state$df <- .Call("multimin_fdf_state_grad", internal.state) } else { state$code <- .Call("multimin_f_iterate", internal.state) state$x <- .Call("multimin_f_state_argmin", internal.state) state$f <- .Call("multimin_f_state_min", internal.state) } state } multimin.restart <- function(state) { if (state$is.fdf) .Call("multimin_restart", state$internal.state) state } # Convergence criterion for Nelder-Mead multimin.fminimizer.size <- function(state) { stopifnot(!state$is.fdf) .Call("multimin_fminimizer_size", state$internal.state) } gsl/R/transport.R0000644000176000001440000000472412251674014013460 0ustar ripleyusers"transport_2" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("transport_2", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "transport_3" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("transport_3", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "transport_4" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("transport_4", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "transport_5" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("transport_5", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } gsl/R/clausen.R0000644000176000001440000000115712251674014013053 0ustar ripleyusers"clausen" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("clausen_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } gsl/R/dilog.R0000644000176000001440000000277112251674014012522 0ustar ripleyusers"dilog" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("dilog_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "complex_dilog" <- function(r, theta=NULL, give=FALSE, strict=TRUE){ if(is.null(theta)){ attr <- attributes(r) r.vec <- as.vector(Mod(r)) theta.vec <- as.vector(Arg(r)) } else { jj <- process.args(r,theta) r.vec <- jj$arg1 theta.vec <- jj$arg2 attr <- jj$attr } jj <- .C("complex_dilog_e", as.double(r.vec), as.double(theta), as.integer(length(r)), val_re=as.double(r.vec), val_im=as.double(r.vec), err_re=as.double(r.vec), err_im=as.double(r.vec), status=as.integer(0*r.vec), PACKAGE="gsl" ) val <- jj$val_re + 1i*jj$val_im err <- jj$err_re + 1i*jj$err_im status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(give){ return(list(val=val, err=err, status=status)) } else { return(val) } } gsl/R/synchrotron.R0000644000176000001440000000236312251674014014011 0ustar ripleyusers"synchrotron_1" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("synchrotron_1", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "synchrotron_2" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("synchrotron_2", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } gsl/R/qrng.R0000644000176000001440000000107612251674014012370 0ustar ripleyusersqrng_alloc <- function(type = c("niederreiter_2", "sobol"), dim) { type <- switch(match.arg(type), niederreiter_2 = 0, sobol = 1) .Call("qrng_alloc", type, dim, PACKAGE = "gsl") } qrng_clone <- function(q) .Call("qrng_clone", q, PACKAGE = "gsl") qrng_init <- function(q) .Call("qrng_init", q, PACKAGE = "gsl") qrng_name <- function(q) .Call("qrng_name", q, PACKAGE = "gsl") qrng_size <- function(q) .Call("qrng_size", q, PACKAGE = "gsl") qrng_get <- function(q, n = 1) matrix(.Call("get_n", q, n, PACKAGE = "gsl"), nrow = n, byrow = TRUE) gsl/R/gegenbauer.R0000644000176000001440000000730612251674014013527 0ustar ripleyusers"gegenpoly_1" <- function(lambda, x, give=FALSE, strict=TRUE){ jj <- process.args(lambda,x) lambda.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("gegenpoly_1_e", as.double(lambda.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "gegenpoly_2" <- function(lambda, x, give=FALSE, strict=TRUE){ jj <- process.args(lambda,x) lambda.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("gegenpoly_2_e", as.double(lambda.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "gegenpoly_3" <- function(lambda, x, give=FALSE, strict=TRUE){ jj <- process.args(lambda,x) lambda.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("gegenpoly_3_e", as.double(lambda.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "gegenpoly_n" <- function(n, lambda, x, give=FALSE, strict=TRUE){ if(length(n)>1){stop("length of n should be 1")} jj <- process.args(lambda,x) lambda.single <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("gegenpoly_n_e", as.integer(n), as.double(lambda.single), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "gegenpoly_array" <- function(nmax, lambda, x, give=FALSE,strict=TRUE){ if(length(nmax)>1){stop("nmax should be of length 1")} jj <- process.args(lambda,x) lambda.single <- jj$arg1 x.vec<- jj$arg2 attr <- jj$attr x.out <- rep(x.vec,(nmax+1)) jj <- .C("gegenpoly_array", as.integer(nmax), as.double(lambda.single), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.out), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val dim(val) <- c(nmax+1 , length(x.vec)) status <- jj$status attributes(status) <- attr err <- jj$err attributes(err) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } gsl/R/legendre.R0000644000176000001440000003700012251674014013202 0ustar ripleyusers"legendre_P1" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("legendre_P1_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "legendre_P2" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("legendre_P2_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "legendre_P3" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("legendre_P3_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "legendre_Pl" <- function(l, x, give=FALSE, strict=TRUE){ jj <- process.args(l,x) l.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("legendre_Pl_e", as.integer(l.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "legendre_Pl_array" <- function(lmax, x, give=FALSE, strict=TRUE){ if(length(lmax)>1){stop("lmax should be of length 1")} attr <- attributes(x) lmax.single <- lmax x.vec <- as.vector(x) x.out <- rep(x.vec,(lmax+1)) jj <- .C("legendre_Pl_array", as.integer(lmax.single), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.out), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val dim(val) <- c(lmax.single+1 , length(x.vec)) status <- jj$status attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,status=status)) } else { return(val) } } "legendre_Q0" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("legendre_Q0_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "legendre_Q1" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("legendre_Q1_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "legendre_Ql" <- function(l, x, give=FALSE, strict=TRUE){ jj <- process.args(l,x) l.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("legendre_Ql_e", as.integer(l.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "legendre_Plm" <- function(l, m, x, give=FALSE, strict=TRUE){ jj <- process.args(l,m,x) l.vec <- jj$arg1 m.vec <- jj$arg2 x.vec <- jj$arg3 attr <- jj$attr jj <- .C("legendre_Plm_e", as.integer(l.vec), as.integer(m.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "legendre_Plm_array" <- function(lmax, m, x, give=FALSE, strict=TRUE){ if(length(lmax)>1){stop("lmax should be of length 1")} if(length(m)>1){stop("m should be of length 1")} lmax.single <- lmax m.single <- m x.vec <- as.vector(x) x.out <- rep(x.vec,(lmax-m.single+1)) jj <- .C("legendre_Plm_array", as.integer(lmax.single), as.integer(m.single), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.out), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val dim(val) <- c(lmax.single-m.single+1 , length(x.vec)) status <- jj$status attributes(status) <- attributes(x) if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,status=status)) } else { return(val) } } "legendre_sphPlm" <- function(l, m, x, give=FALSE, strict=TRUE){ jj <- process.args(l,m,x) l.vec <- jj$arg1 m.vec <- jj$arg2 x.vec <- jj$arg3 attr <- jj$attr jj <- .C("legendre_sphPlm_e", as.integer(l.vec), as.integer(m.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "legendre_sphPlm_array" <- function(lmax, m, x, give=FALSE, strict=TRUE){ if(length(lmax)>1){stop("lmax should be of length 1")} if(length(m)>1){stop("m should be of length 1")} lmax.single <- lmax m.single <- m x.vec <- as.vector(x) x.out <- rep(x.vec,(lmax.single - m.single +1)) jj <- .C("legendre_sphPlm_array", as.integer(lmax.single), as.integer(m.single), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.out), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val dim(val) <- c(lmax.single-m.single+1 , length(x.vec)) status <- jj$status attributes(status) <- attributes(x) if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,status=status)) } else { return(val) } } "conicalP_half" <- function(lambda, x, give=FALSE, strict=TRUE){ jj <- process.args(lambda,x) l.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("conicalP_half_e", as.double(l.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "conicalP_mhalf" <- function(lambda, x, give=FALSE, strict=TRUE){ jj <- process.args(lambda,x) l.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("conicalP_mhalf_e", as.double(l.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "conicalP_0" <- function(lambda, x, give=FALSE, strict=TRUE){ jj <- process.args(lambda,x) l.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("conicalP_0_e", as.double(l.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "conicalP_1" <- function(lambda, x, give=FALSE, strict=TRUE){ jj <- process.args(lambda,x) l.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("conicalP_1_e", as.double(l.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "conicalP_sph_reg" <- function(l, lambda, x, give=FALSE, strict=TRUE){ jj <- process.args(l, lambda,x) l.vec <- jj$arg1 lam.vec <- jj$arg2 x.vec <- jj$arg3 attr <- jj$attr jj <- .C("conicalP_sph_reg_e", as.integer(l.vec), as.double(lam.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "conicalP_cyl_reg" <- function(m, lambda, x, give=FALSE, strict=TRUE){ jj <- process.args(m,lambda,x) m.vec <- jj$arg1 lam.vec <- jj$arg2 x.vec <- jj$arg3 attr <- jj$attr jj <- .C("conicalP_cyl_reg_e", as.integer(m.vec), as.double(lam.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "legendre_H3d_0" <- function(lambda, eta, give=FALSE, strict=TRUE){ jj <- process.args(lambda,eta) lam.vec <- jj$arg1 eta.vec <- jj$arg2 attr <- jj$attr jj <- .C("legendre_H3d_0_e", as.double(lam.vec), as.double(eta.vec), as.integer(length(lam.vec)), val=as.double(lam.vec), err=as.double(lam.vec), status=as.integer(lam.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "legendre_H3d_1" <- function(lambda, eta, give=FALSE, strict=TRUE){ jj <- process.args(lambda,eta) lam.vec <- jj$arg1 eta.vec <- jj$arg2 attr <- jj$attr jj <- .C("legendre_H3d_1_e", as.double(lam.vec), as.double(eta.vec), as.integer(length(lam.vec)), val=as.double(lam.vec), err=as.double(lam.vec), status=as.integer(lam.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "legendre_H3d" <- function(l, lambda, eta, give=FALSE, strict=TRUE){ jj <- process.args(l, lambda, eta) l.vec <- jj$arg1 lam.vec <- jj$arg2 eta.vec <- jj$arg3 attr <- jj$attr jj <- .C("legendre_H3d_e", as.integer(l.vec), as.double(lam.vec), as.double(eta.vec), as.integer(length(lam.vec)), val=as.double(lam.vec), err=as.double(lam.vec), status=as.integer(lam.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "legendre_H3d_array" <- function(lmax, lambda, eta, give=FALSE, strict=TRUE){ if(length(lmax)>1){stop("lmax should be of length 1")} lmax.single <- lmax jj <- process.args(lambda,eta) lam.vec <- jj$arg1 eta.vec <- jj$arg2 attr <- jj$attr lam.out <- rep(lam.vec,(lmax+1)) jj <- .C("legendre_H3d_array", as.integer(lmax.single), as.double(lam.vec), as.double(eta.vec), as.integer(length(lam.vec)), val=as.double(lam.out), status=as.integer(lam.vec), PACKAGE="gsl" ) val <- jj$val dim(val) <- c(lmax.single+1 , length(lam.vec)) status <- jj$status attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,status=status)) } else { return(val) } } gsl/R/ellint.R0000644000176000001440000001757612251674014012724 0ustar ripleyusers"ellint_Kcomp" <- function(k, mode=0, give=FALSE, strict=TRUE){ attr <- attributes(k) if(length(mode)>1){stop("length of mode must be 1")} k.vec <- as.vector(k) jj <- .C("ellint_Kcomp_e", as.double(k.vec), as.integer(length(k.vec)), as.integer(mode), val=as.double(k.vec), err=as.double(k.vec), status=as.integer(0*k.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "ellint_Ecomp" <- function(k, mode=0, give=FALSE, strict=TRUE){ attr <- attributes(k) if(length(mode)>1){stop("length of mode must be 1")} k.vec <- as.vector(k) jj <- .C("ellint_Ecomp_e", as.double(k.vec), as.integer(length(k.vec)), as.integer(mode), val=as.double(k.vec), err=as.double(k.vec), status=as.integer(0*k.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "ellint_F" <- function(phi, k, mode=0, give=FALSE, strict=TRUE){ if(length(mode)>1){stop("length of mode must be 1")} jj <- process.args(phi,k) phi.vec <- jj$arg1 k.vec <- jj$arg2 attr <- jj$attr jj <- .C("ellint_F_e", as.double(phi.vec), as.double(k.vec), as.integer(length(k.vec)), as.integer(mode), val=as.double(k.vec), err=as.double(k.vec), status=as.integer(0*k.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "ellint_E" <- function(phi, k, mode=0, give=FALSE, strict=TRUE){ if(length(mode)>1){stop("length of mode must be 1")} jj <- process.args(phi,k) phi.vec <- jj$arg1 k.vec <- jj$arg2 attr <- jj$attr jj <- .C("ellint_E_e", as.double(phi.vec), as.double(k.vec), as.integer(length(k.vec)), as.integer(mode), val=as.double(k.vec), err=as.double(k.vec), status=as.integer(0*k.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "ellint_P" <- function(phi, k, n, mode=0, give=FALSE, strict=TRUE){ if(length(mode)>1){stop("length of mode must be 1")} jj <- process.args(phi,k,n) phi.vec <- jj$arg1 k.vec <- jj$arg2 n.vec <- jj$arg3 attr <- jj$attr jj <- .C("ellint_P_e", as.double(phi.vec), as.double(k.vec), as.double(n.vec), as.integer(length(k.vec)), as.integer(mode), val=as.double(k.vec), err=as.double(k.vec), status=as.integer(0*k.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "ellint_D" <- function(phi, k, n, mode=0, give=FALSE, strict=TRUE){ if(length(mode)>1){stop("length of mode must be 1")} jj <- process.args(phi,k,n) phi.vec <- jj$arg1 k.vec <- jj$arg2 n.vec <- jj$arg3 attr <- jj$attr jj <- .C("ellint_D_e", as.double(phi.vec), as.double(k.vec), as.double(n.vec), as.integer(length(k.vec)), as.integer(mode), val=as.double(k.vec), err=as.double(k.vec), status=as.integer(0*k.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "ellint_RC" <- function(x, y, mode=0, give=FALSE, strict=TRUE){ if(length(mode)>1){stop("length of mode must be 1")} jj <- process.args(x,y) x.vec <- jj$arg1 y.vec <- jj$arg2 attr <- jj$attr jj <- .C("ellint_RC_e", as.double(x.vec), as.double(y.vec), as.integer(length(x.vec)), as.integer(mode), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "ellint_RD" <- function(x, y, z, mode=0, give=FALSE, strict=TRUE){ if(length(mode)>1){stop("length of mode must be 1")} jj <- process.args(x,y,z) x.vec <- jj$arg1 y.vec <- jj$arg2 z.vec <- jj$arg3 attr <- jj$attr jj <- .C("ellint_RD_e", as.double(x.vec), as.double(y.vec), as.double(z.vec), as.integer(length(x.vec)), as.integer(mode), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "ellint_RF" <- function(x, y, z, mode=0, give=FALSE, strict=TRUE){ if(length(mode)>1){stop("length of mode must be 1")} jj <- process.args(x,y,z) x.vec <- jj$arg1 y.vec <- jj$arg2 z.vec <- jj$arg3 attr <- jj$attr jj <- .C("ellint_RF_e", as.double(x.vec), as.double(y.vec), as.double(z.vec), as.integer(length(x.vec)), as.integer(mode), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "ellint_RJ" <- function(x, y, z, p, mode=0, give=FALSE, strict=TRUE){ if(length(mode)>1){stop("length of mode must be 1")} if(length(p)>1){stop("length of p must be 1")} jj <- process.args(x,y,z) x.vec <- jj$arg1 y.vec <- jj$arg2 z.vec <- jj$arg3 attr <- jj$attr jj <- .C("ellint_RJ_e", as.double(x.vec), as.double(y.vec), as.double(z.vec), as.double(p), as.integer(length(x.vec)), as.integer(mode), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } gsl/R/gamma.R0000644000176000001440000004035212251674014012503 0ustar ripleyusers"gsl_sf_gamma" <- function(x,give=FALSE,strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("gamma_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "lngamma" <- function(x,give=FALSE,strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("lngamma_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "lngamma_sgn" <- function(x, give=FALSE,strict=TRUE){ jj <- process.args(x) x.vec <- jj$arg1 attr <- jj$attr jj <- .C("lngamma_sgn_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), sgn=as.double(x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err sgn <- jj$sgn status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr attributes(sgn) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status,sgn=sgn)) } else { return(list(val=val,sgn=sgn)) } } "gammastar" <- function(x,give=FALSE,strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("gammastar_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "gammainv" <- function(x,give=FALSE,strict=TRUE){ x.vec <- as.vector(x) attr <- attributes(x) jj <- .C("gammainv_e", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "lngamma_complex" <- function(zr, zi=NULL, r.and.i=TRUE, give=FALSE, strict=TRUE){ attr <- attributes(zr) if(is.null(zi)){ zi <- as.vector(Im(zr)) zr <- as.vector(Re(zr)) } else { zi <- as.vector(zi) zr <- as.vector(zr) } if(length(zr) !=length(zi)){stop("zr and zi must be of the same dimensions")} jj <- .C("lngamma_complex_e", as.double(zr), as.double(zi), as.integer(length(zr)), val_lnr=as.double(zr), val_arg=as.double(zr), err_lnr=as.double(zr), err_arg=as.double(zr), status=as.integer(0*zr), PACKAGE="gsl" ) val_lnr <- jj$val_lnr val_arg <- jj$val_arg err_lnr <- jj$err_lnr err_arg <- jj$err_arg status <- jj$status attributes(status) <- attr if(r.and.i){ # val <- exp(val_lnr)*cos(val_arg) + 1i*exp(val_lnr)*sin(val_arg) # err <- exp(xerr_lnr)*cos(err_arg) + 1i*exp(err_lnr)*sin(err_arg) val <- val_lnr + 1i*val_arg err <- err_lnr + 1i*err_arg attributes(val) <- attr attributes(err) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val, err=err, status=status)) } else { return(val) } } else { attributes(val_lnr) <- attr attributes(val_arg) <- attr attributes(err_lnr) <- attr attributes(err_arg) <- attr if(strict){ val_lnr <- strictify(val_lnr,status) val_arg <- strictify(val_arg,status) } if(give){ return(list(val_lnr=val_lnr, val_arg=val_arg, err_lnr=err_lnr,err_arg=err_arg, status=status)) } else { return(list(val_lnr=val_lnr, val_arg=val_arg)) } } } "taylorcoeff" <- function(n, x ,give=FALSE,strict=TRUE){ jj <- process.args(n,x) n.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("taylorcoeff_e", as.integer(n.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "fact" <- function(n, give=FALSE,strict=TRUE){ n.vec <- as.vector(n) attr <- attributes(n) jj <- .C("fact_e", as.integer(n), as.integer(length(n.vec)), val=as.double(n.vec), err=as.double(n.vec), status=as.integer(0*n.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attributes(n) attributes(err) <- attributes(n) attributes(status) <- attributes(n) if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "doublefact" <- function(n, give=FALSE,strict=TRUE){ n.vec <- as.vector(n) attr <- attributes(n) jj <- .C("doublefact_e", as.integer(n), as.integer(length(n.vec)), val=as.double(n.vec), err=as.double(n.vec), status=as.integer(0*n.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attributes(n) attributes(err) <- attributes(n) attributes(status) <- attributes(n) if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "lnfact" <- function(n, give=FALSE,strict=TRUE){ n.vec <- as.vector(n) attr <- attributes(n) jj <- .C("lnfact_e", as.integer(n), as.integer(length(n.vec)), val=as.double(n.vec), err=as.double(n.vec), status=as.integer(0*n.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attributes(n) attributes(err) <- attributes(n) attributes(status) <- attributes(n) if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "lndoublefact" <- function(n, give=FALSE,strict=TRUE){ n.vec <- as.vector(n) attr <- attributes(n) jj <- .C("lndoublefact_e", as.integer(n), as.integer(length(n.vec)), val=as.double(n.vec), err=as.double(n.vec), status=as.integer(0*n.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attributes(n) attributes(err) <- attributes(n) attributes(status) <- attributes(n) if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "gsl_sf_choose" <- function(n, m, give=FALSE,strict=TRUE){ jj <- process.args(n,m) n.vec <- jj$arg1 m.vec <- jj$arg2 attr <- jj$attr jj <- .C("choose_e", as.integer(n.vec), as.integer(m.vec), as.integer(length(n.vec)), val=as.double(n.vec), err=as.double(n.vec), status=as.integer(0*n.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attributes(n) attributes(err) <- attributes(n) attributes(status) <- attributes(n) if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "lnchoose" <- function(n, m, give=FALSE,strict=TRUE){ jj <- process.args(n,m) n.vec <- jj$arg1 m.vec <- jj$arg2 attr <- jj$attr jj <- .C("lnchoose_e", as.integer(n.vec), as.integer(m.vec), as.integer(length(n.vec)), val=as.double(n.vec), err=as.double(n.vec), status=as.integer(0*n.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attributes(n) attributes(err) <- attributes(n) attributes(status) <- attributes(n) if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "poch" <- function(a, x, give=FALSE,strict=TRUE){ jj <- process.args(a,x) a.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("poch_e", as.double(a.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "lnpoch" <- function(a, x, give=FALSE,strict=TRUE){ jj <- process.args(a,x) a.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("lnpoch_e", as.double(a.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "lnpoch_sgn" <- function(a, x, give=FALSE,strict=TRUE){ jj <- process.args(a,x) a.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("lnpoch_sgn_e", as.double(a.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), sgn=as.double(x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err sgn <- jj$sgn status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr attributes(sgn) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status,sgn=sgn)) } else { return(list(val=val,sgn=sgn)) } } "pochrel" <- function(a, x, give=FALSE,strict=TRUE){ jj <- process.args(a,x) a.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("pochrel_e", as.double(a.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "gamma_inc_Q" <- function(a, x, give=FALSE,strict=TRUE){ jj <- process.args(a,x) a.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("gamma_inc_Q_e", as.double(a.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "gamma_inc_P" <- function(a, x, give=FALSE,strict=TRUE){ jj <- process.args(a,x) a.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("gamma_inc_P_e", as.double(a.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "gamma_inc" <- function(a, x, give=FALSE,strict=TRUE){ jj <- process.args(a,x) a.vec <- jj$arg1 x.vec <- jj$arg2 attr <- jj$attr jj <- .C("gamma_inc_e", as.double(a.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "gsl_sf_beta" <- function(a, b, give=FALSE,strict=TRUE){ jj <- process.args(a,b) a.vec <- jj$arg1 b.vec <- jj$arg2 attr <- jj$attr jj <- .C("beta_e", as.double(a.vec), as.double(b.vec), as.integer(length(b.vec)), val=as.double(b.vec), err=as.double(b.vec), status=as.integer(0*b.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "lnbeta" <- function(a, b, give=FALSE,strict=TRUE){ jj <- process.args(a,b) a.vec <- jj$arg1 b.vec <- jj$arg2 attr <- jj$attr jj <- .C("lnbeta_e", as.double(a.vec), as.double(b.vec), as.integer(length(b.vec)), val=as.double(b.vec), err=as.double(b.vec), status=as.integer(0*b.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "beta_inc" <- function(a, b, x, give=FALSE,strict=TRUE){ jj <- process.args(a,b,x) a.vec <- jj$arg1 b.vec <- jj$arg2 x.vec <- jj$arg3 attr <- jj$attr jj <- .C("beta_inc_e", as.double(a.vec), as.double(b.vec), as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } gsl/R/dawson.R0000644000176000001440000000115312251674014012710 0ustar ripleyusers"dawson" <- function(x, give=FALSE, strict=TRUE){ attr <- attributes(x) x.vec <- as.vector(x) jj <- .C("dawson", as.double(x.vec), as.integer(length(x.vec)), val=as.double(x.vec), err=as.double(x.vec), status=as.integer(0*x.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } gsl/R/zzz.R0000644000176000001440000000021512251674014012250 0ustar ripleyusers#.First.lib <- function(lib, pkg) { # library.dynam("gsl", pkg, lib) #} .onLoad <- function(lib, pkg) { library.dynam("gsl", pkg, lib) } gsl/R/coupling.R0000644000176000001440000000621512251674014013241 0ustar ripleyusers"coupling_3j" <- function(two_ja, two_jb, two_jc, two_ma, two_mb, two_mc, give=FALSE, strict=TRUE){ jj <- process.args(two_ja, two_jb, two_jc, two_ma, two_mb, two_mc) ja.vec <- jj$arg1 jb.vec <- jj$arg2 jc.vec <- jj$arg3 ma.vec <- jj$arg4 mb.vec <- jj$arg5 mc.vec <- jj$arg6 attr <- jj$attr jj <- .C("coupling_3j", as.integer(ja.vec), as.integer(jb.vec), as.integer(jc.vec), as.integer(ma.vec), as.integer(mb.vec), as.integer(mc.vec), as.integer(length(ja.vec)), val=as.double(ja.vec), err=as.double(ja.vec), status=as.integer(0*ja.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "coupling_6j" <- function(two_ja, two_jb, two_jc, two_jd, two_je, two_jf, give=FALSE, strict=TRUE){ jj <- process.args(two_ja, two_jb, two_jc, two_jd, two_je, two_jf) ja.vec <- jj$arg1 jb.vec <- jj$arg2 jc.vec <- jj$arg3 jd.vec <- jj$arg4 je.vec <- jj$arg5 jf.vec <- jj$arg6 attr <- jj$attr jj <- .C("coupling_6j", as.integer(ja.vec), as.integer(jb.vec), as.integer(jc.vec), as.integer(jd.vec), as.integer(je.vec), as.integer(jf.vec), as.integer(length(ja.vec)), val=as.double(ja.vec), err=as.double(ja.vec), status=as.integer(0*ja.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } "coupling_9j" <- function(two_ja, two_jb, two_jc, two_jd, two_je, two_jf, two_jg, two_jh, two_ji, give=FALSE, strict=TRUE){ jj <- process.args(two_ja, two_jb, two_jc, two_jd, two_je, two_jf, two_jg, two_jh, two_ji) ja.vec <- jj$arg1 jb.vec <- jj$arg2 jc.vec <- jj$arg3 jd.vec <- jj$arg4 je.vec <- jj$arg5 jf.vec <- jj$arg6 jg.vec <- jj$arg7 jh.vec <- jj$arg8 ji.vec <- jj$arg9 attr <- jj$attr jj <- .C("coupling_9j", as.integer(ja.vec), as.integer(jb.vec), as.integer(jc.vec), as.integer(jd.vec), as.integer(je.vec), as.integer(jf.vec), as.integer(jg.vec), as.integer(jh.vec), as.integer(ji.vec), as.integer(length(ja.vec)), val=as.double(ja.vec), err=as.double(ja.vec), status=as.integer(0*ja.vec), PACKAGE="gsl" ) val <- jj$val err <- jj$err status <- jj$status attributes(val) <- attr attributes(err) <- attr attributes(status) <- attr if(strict){ val <- strictify(val,status) } if(give){ return(list(val=val,err=err,status=status)) } else { return(val) } } gsl/vignettes/0000755000176000001440000000000012251674041013101 5ustar ripleyusersgsl/vignettes/gslpaper.Rnw0000644000176000001440000002477512251674014015425 0ustar ripleyusers% -*- mode: noweb; noweb-default-code-mode: R-mode; -*- \documentclass[nojss]{jss} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% declarations for jss.cls %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% just as usual \author{Robin K. S. Hankin} \title{Special functions in \proglang{R}: introducing the \pkg{gsl} package} %\VignetteIndexEntry{A vignette for the gsl package} %% for pretty printing and a nice hypersummary also set: %% \Plainauthor{Achim Zeileis, Second Author} %% comma-separated \Plaintitle{Special functions in R: introducing the gsl package} \Shorttitle{The \pkg{gsl} package} \Abstract{ This vignette introduces the \pkg{gsl} package of \proglang{R} utilities for accessing the functions of the Gnu Scientific Library. An earlier version of this document was published as~\cite{hankin2006}. } \Keywords{\proglang{R}, special functions} \Plainkeywords{R, special functions} \Address{ Robin K. S. Hankin\\ Auckland University of Technology\\ AUT Tower\\ Wakefield Street\\ Auckland\\ New Zealand\\ E-mail: \email{hankin.robin@gmail.com} } %% need no \usepackage{Sweave.sty} \SweaveOpts{echo=FALSE} \begin{document} \section{Introduction} The Gnu Scientific Library (GSL) is a collection of numerical routines for scientific computing~\citep{galassi2005}. The routines are written in \proglang{C} and constitute a library for \proglang{C} programmers; the source code is distributed under the GNU General Public License. One stated aim of the GSL development effort is the development of wrappers for high level languages. The \proglang{R} programming language~\citep{rcore2008} is an environment for statistical computation and graphics. It consists of a language and a run-time environment with graphics and other features. Here I introduce \pkg{gsl}, an \proglang{R} package that allows direct access to many GSL functions, including all the special functions, from within an \proglang{R} session. The package is available on CRAN, \url{http://www.cran.r-project.org/}; the GSL is available at \url{http://www.gnu.org/software/gsl/}. \section{Package design philosophy} The package splits into two parts: the special functions, written by the author; and the \pkg{rng} and \pkg{qrng} functionality, written by Duncan Murdoch. These two parts are very different in implementation, yet follow a common desideratum, namely that the package be a transparent port of the GSL library. The package thus has the advantage of being easy to compare with the GSL, and easy to update verifiably. In this paper, the Airy functions are used to illustrate the package. They are typical of the package's capabilities and coding, and are relatively simple to understand, having only a single real argument. A brief definition, and an application in physics, is given in the appendix. The package is organized into units that correspond to the GSL header file. Thus all the Airy functions are defined in a single header file, \code{gsl\_sf\_airy.h}. The package thus contains a corresponding \proglang{C} file, \code{airy.c}; an \proglang{R} file \code{airy.R}, and a documentation file \code{Airy.Rd}. These three files together encapsulate the functionality defined in \code{gsl\_sf\_airy.h} in the context of an \proglang{R} package. This structure makes it demonstrable that the GSL has been systematically and completely wrapped. Functions are named such that one can identify a function in the GSL manual, and the corresponding \proglang{R} command will be the same but with the prefix\footnote{Some functions, such as \code{gsl\_sf\_sin()}, retain the prefix to avoid conflicts. A full list is given in \code{Misc.Rd}.} and, if present, the ``\code{\_e}'' suffix, removed. In the case of the special functions, the prefix is ``\code{gsl\_sf\_}''. Thus, GSL function \code{gsl\_sf\_airy\_Ai\_e()} of header file \code{gsl\_sf\_airy.h} is called, via intermediate \proglang{C} routine \code{airy\_Ai\_e()}, by \proglang{R} function \code{airy\_Ai()}. Documentation is provided for every function defined in \code{gsl\_sf\_airy.h} under \code{Airy.Rd}. The \pkg{gsl} package is not intended to add any numerical functionality to the GSL, although here and there I have implemented slight extensions such as the Jacobian elliptic functions whose \proglang{R} ports take a complex argument. \subsection{Package documentation} The \pkg{gsl} package is unusual in that its documentation consists almost entirely of pointers to the GSL reference manual~\citep{galassi2005}, and~\citet{abramowitz1965}. This follows from the transparent wrapper philosophy. In any case, the GSL reference manual would strictly dominate the \code{Rd} files of the \pkg{gsl} package. \section[Package gsl in use]{Package \pkg{gsl} in use} <>= <>= library(gsl) @ Most functions in the package are straightforwardly and transparently executable: <>= airy_Ai(1:3) @ The online helpfiles include many examples that reproduce graphs and tables that appear in \citeauthor{abramowitz1965}. This constitutes a useful check on the routines. For example, figures~\ref{airyfig_A} and~\ref{airyfig_B} show an approximate reproduction of their figures~10.6 and~10.7 (page~446). \begin{figure}[htbp] \begin{center} <>= x <- seq(from=0,to=10,len=100) plot(c(0,11),c(-1,1),type="n",main="Fig 10.6, p446",xlab="",ylab="",yaxt="n",xaxt="n",frame=FALSE) axis(1,pos=0,at=c(0,2,4,6,8,10),labels=c("","2","4","6","8","10")) axis(2,pos=0) lines(x,airy_Ai ( x),type="l",lty=1) lines(x,airy_Ai (-x),type="l",lty=2) lines(x,airy_Ai_deriv ( x),type="l",lty=3) lines(x,airy_Ai_deriv (-x),type="l",lty=4) text(1,0.6 ,"Ai(-x)" ) text(0.85,0.33 ,"Ai(x)" ) text(1.08,-0.26,"Ai'(x)" ) text(10.5,0.4 ,"Ai'(-x)") arrows(10, 0, 11, 0,angle=11) text(11,-0.1,"x") @ \caption{Functions~$\mathrm{Ai}(\pm x)$ \label{airyfig_A} and~$\mathrm{Ai}'(\pm x)$ as plotted in the helpfile for \code{airy\_Ai()} and appearing on page~446 of~\citet{abramowitz1965}} \end{center} \end{figure} \begin{figure}[htbp] \begin{center} <>= x <- seq(from=0,to=10,len=100) plot(c(0,10),c(-1,2.2),type="n",main="Fig 10.7, p446",xlab="",ylab="",yaxt="n",xaxt="n",frame=FALSE) axis(1,pos=0,at=c(0,1:9),labels=c("","1","2","3","4","5","6","7","8","9")) axis(2,pos=0) lines(x,airy_Bi ( x),type="l",lty=1) lines(x,airy_Bi (-x),type="l",lty=2) lines(x,airy_Bi_deriv ( x),type="l",lty=3) lines(x,airy_Bi_deriv (-x),type="l",lty=4) text(0.15,1.44 ,"Bi(x)",pos=4) text(1,0.90 ,"Bi'(x)",pos=4) text(2.25,0.56,"Bi'(-x)") text(0.7,-0.55,"Bi'(-x)",pos=4) arrows(9, 0, 10, 0, angle=11) text(10,-0.1,"x") @ \caption{Functions~$\mathrm{Bi}(\pm x)$ \label{airyfig_B} and~$\mathrm{Bi}'(\pm x)$ \citep{abramowitz1965}} \end{center} \end{figure} \section{Summary} The \pkg{gsl} package is a transparent \proglang{R} wrapper for the Gnu Scientific Library. It gives access to all the special functions, and the quasi-random sequence generation routines. Notation follows the GSL as closely as reasonably practicable; many graphs and tables appearing in \citeauthor{abramowitz1965} are reproduced by the examples in the helpfiles. \subsubsection*{Acknowledgments} I would like to acknowledge the many stimulating and helpful comments made by the \proglang{R}-help list over the years. \bibliography{gsl} \section*{Appendix: The Airy function and an application in quantum mechanics} The Airy function may not be familiar to some readers; here, I give a brief introduction to it and illustrate the \pkg{gsl} package in use in a physical context. The standard reference is~\citet{vallee2004}. For real argument~$x$, the Airy function is defined by the integral \begin{equation} \mathrm{Ai}(x)=\frac{1}{\pi}\int_0^\infty \cos\left(t^3/3+xt\right)\,dt\end{equation} and obeys the differential equation~$y''=xy$ (the other solution is denoted~$\mathrm{Bi}(x)$). In the field of quantum mechanics, one often considers the problem of a particle confined to a potential well that has a well-specified form. Here, I consider a potential of the form \begin{equation}\label{potential} V(r) = \left\{\begin{array}{ll} r & \mbox{if~$r>0$}\\ \infty & \mbox{if~$r\leq 0$}\\ \end{array} \right. \end{equation} Under such circumstances, the energy spectrum is discrete and the energy~$E_n$ corresponds to the $n^{\rm th}$ quantum state, denoted by $\psi_n$. If the mass of the particle is~$m$, it is governed by the Schr\"{o}dinger equation \begin{equation} \frac{d^2\psi_n(r)}{dr^2} + \frac{2m}{\hbar^2}\left(E_n-r\right)\psi_n(r)=0 \end{equation} Changing variables to $\xi=\left(E_n-e\right)\left(2m/\hbar\right)^{1/3}$ yields the Airy equation, viz \begin{equation} \frac{d^2\psi_n}{d\xi^2}+\xi\psi_n=0\end{equation} with solution \begin{equation} \psi_n(\xi)=N\mathrm{Ai}\left(-\xi\right) \end{equation} where $N$ is a normalizing constant (the~$\mathrm{Bi}\left(\cdot\right)$ term is omitted as it tends to infinity with increasing~$r$). Demanding that~$\psi_n(0)=0$ gives \[ E_n=-a_{n+1}\left(\hbar^2/2m\right)^{1/3} \] where~$a_n$ is the $n^{\rm th}$ root of the~$\mathrm{Ai}$ function [\code{Airy\_zero\_Ai()} in the package]; the off-by-one mismatch is due to the convention that the ground state is conventionally labelled state zero, not state~1. Thus, for example, $E_2=\mbox{\Sexpr{-round(airy_zero_Ai(3),4)}}\left(\hbar^2/2m\right)^{1/3}$. The normalization factor~$N$ is determined by requiring that $\int_0^\infty\psi^*\psi\,dr=1$ (physically, the particle is known to be somewhere with~$r>0$). It can be shown that \[ N=\frac{\left(2m/\hbar\right)^{1/6}}{\mathrm{Ai}'\left(a_n\right)}\] [the denominator is given by function \code{airy\_zero\_Ai\_deriv()} in the package] and the full solution is thus given by \begin{equation} \psi_n(r)=\frac{\left(2m/\hbar\right)^{1/6}} {\mathrm{Ai}'\left(a_n\right)} \mathrm{Ai}\left[ \left(\frac{2m}{\hbar}\right)^{1/3}\left(r-E_n\right)\right]. \end{equation} Figure~\ref{qm} shows the first six energy levels and the corresponding wave functions. \begin{figure}[htbp] \begin{center} <>= f <- function(r,n){ -airy_Ai(r+airy_zero_Ai(n+1))/airy_zero_Ai_deriv(n+1)} plot(c(0,10),c(0,10),type="l",yaxt="n",xaxt="n",frame=FALSE,xlab="r",ylab="V(r)") axis(1,pos=0) axis(2,pos=0) x <- seq(from=0,to=10,len=400) for(i in 0:5){ jj <- -airy_zero_Ai(i+1) lines(x=c(0,jj),y=c(jj,jj)) lines(x=c(jj,10),y=c(jj,jj),col="gray",lty=2) points(x,(i+1)*(-1)^i*f(x,i)+jj,type="l") } @ \caption{First six energy levels of a particle\label{qm} in a potential well (diagonal line) given by equation~\ref{potential}} \end{center} \end{figure} \end{document} gsl/vignettes/gsl.bib0000644000176000001440000000223312251674014014344 0ustar ripleyusers @Manual{rcore2008, title = {\proglang{R}: A Language and Environment for Statistical Computing}, author = {{\proglang{R} Development Core Team}}, organization = {\proglang{R} Foundation for Statistical Computing}, address = {Vienna, Austria}, year = {2008}, note = {{ISBN} 3-900051-07-0}, url = {http://www.R-project.org}, } @Book{abramowitz1965, author = {M. Abramowitz and I. A. Stegun}, title = {Handbook of mathematical functions}, publisher = {New York: Dover}, year = {1965} } @Manual{galassi2005, title = {GNU Scientific Library}, author = {M. Galassi and others}, year = {2005}, note = {Reference Manual edition 1.7, for GSL version 1.7; 13 September 2005} } @Book{vallee2004, author = {O. Vall\'{e}e and M. Soares}, title = {{A}iry functions and applications to physics}, publisher = {World Scientific}, year = {2004}, } @Article{hankin2006, author = {R. K. S. Hankin}, title = {Special functions in \proglang{R}: introducing the \pkg{gsl} package}, journal = {\proglang{R} News}, year = {2006}, volume = {6}, number = {4}, pages = {24--26}, month = {October} } gsl/MD50000644000176000001440000001216512627553221011411 0ustar ripleyusersdd553f487b1b9f5143519c31e0541f28 *DESCRIPTION 43cfffb315b399d106c9e7954f22d91a *INSTALL 31483d04500c9ce2a7050ab516eec317 *NAMESPACE 49451ef3da39ad3348db4efb9897229d *R/aaa.R 03ae4d3fba892312f51e5a3ffc7c0fb8 *R/airy.R fe8b740941ba5d4db46c06d91d2ea184 *R/bessel.R 61255f0011b035b698429c8da5141340 *R/clausen.R de72c950c76e237e2fd95d3e106479b3 *R/coulomb.R efda650f9c08a18868753656bbbc5f0b *R/coupling.R 94cb908c3c33996631a6f45b922a03d0 *R/dawson.R 4a6908299abee1012008c12ebdc78405 *R/debye.R c036d535ad115094f673b0f5a5a0a3a1 *R/dilog.R ea246eec147354df8f4ec35f944ece93 *R/ellint.R cc8b5050e1462ac3110d9f2d0a77b8a7 *R/elljac.R 63e89748e7421f9d36beced3c5aa41b2 *R/error.R 90d4e6fe350e81ea1cbe11d34ad9325f *R/expint.R 52a98ad52b5f6afa08b023eb5d31af23 *R/fermi_dirac.R 92b6a84fdd23cbbe7635f6a323671109 *R/gamma.R f9d7db5fa4d762593d8ad45588db054f *R/gegenbauer.R f4d90b1eaed0d5431fb72f7cd017ccbb *R/hyperg.R 30d4268d469da729d11365cdc884ed8f *R/laguerre.R 91b6b722747196034cbd2a190c1a6282 *R/lambert.R 9ba92bb8fe3adac3a30483883f213e37 *R/legendre.R 7ab481dd8fe0647da9d8094073e20203 *R/log.R 374707ac2bfd210766eea40e532726d1 *R/multimin.R e173f4cb4f3c07696d5249c5f9727906 *R/poly.R af87996572694b59ae73f4481c37ced6 *R/pow_int.R f2606a5708629a1b4ebc401b857ba00d *R/psi.R 4e229aa5ab820bf6425a7edcbec4fa7f *R/qrng.R 9fc85ca081cf5f3bce21eb6e9caaef3d *R/rng.R 2b2d469586da281ae2782b18f48ed6c0 *R/synchrotron.R 5552758765d21274f3928f649090c79e *R/transport.R 699c11587bc6e03c24f909f22cf36a83 *R/trig.R 81e928a7d5059c7af5ac33ffb1a15184 *R/zeta.R db9a953c82fb5bcad9aee1bc7c6c053a *R/zzz.R c49ad1d44c0b69af5e210633fcaddcf6 *build/vignette.rds 67c9db5dc1a8e12ccf5880ffe206ce56 *cleanup 9a9891f695e4676eb2f69fb50f393f57 *configure b0a09ce66804c989dc28f289db46011c *configure.ac 4f92f503d9c4f423a6e89a9eaf63b63a *inst/CITATION e2b59fe3fff2bcb30599893a7e590f33 *inst/doc/gslpaper.R 3301d42c84eae58199688edf0b89e67b *inst/doc/gslpaper.Rnw 2bdb59399c94f936d144ed0132a728ca *inst/doc/gslpaper.pdf 51d22603a282e6d49b45ba6f45fefddf *man/Airy.Rd 6c1c6ddc0dfcd8b73ef6ffed42e65ba0 *man/Bessel.Rd 7d06ff3c77d8b2a663b248a738856421 *man/Clausen.Rd 98fcac9cb7de51d8ae7a02a8428905ee *man/Coulomb.Rd a63db4302c02307146d1504bb54c8f18 *man/Coupling.Rd 4a7355ebd30b7970506e83a6447879a8 *man/Dawson.Rd f63c29f8bd18f8b2d04050ae787ab721 *man/Debye.Rd 116a4e433bb40c8969cc69478c780a8b *man/Dilog.Rd 67ae7337e6876ed2a74502516bb554cb *man/Ellint.Rd bf62c520b78449c16488f54426154a0f *man/Elljac.Rd a718e4a398ac7a2b64d65f1dfb320432 *man/Error.Rd a68fc01c74086fbe4215a040835cb356 *man/Expint.Rd 21fc303dd51814ac56b8f9945462810c *man/Fermi-Dirac.Rd 91fdccdf6653b108c8f0b77f547b5d10 *man/Gamma.Rd 00622a95ada338dcbc21acf1bff59feb *man/Gegenbauer.Rd c72660ed0e2d7d8f9b92e453d982b7cd *man/Hyperg.Rd f78f226b9aa79693a19b74968a783776 *man/Laguerre.Rd 8a9bb1531e6daeee4460076ce7233e55 *man/Lambert.Rd 350bca046d811eb9113994dc980a7c53 *man/Legendre.Rd fabe389c3bb31b21bf9988cdd34d0568 *man/Log.Rd 4dedc46dadcd50abb618d91ddd47dbf2 *man/Misc.Rd 1fade6bc68c4fb6240407233f9787b35 *man/Multimin.Rd 20679f03d67f003db906ad6080c14010 *man/Poly.Rd c80c94e5141fde7e2f8dc0b1753bad1f *man/Pow_int.Rd d46471da3247f9e6c798a31e5560a6d2 *man/Psi.Rd 20550c18fc17531e21be84f9ede97456 *man/Qrng.Rd 96ff7fb8a6c5ad43c2084c0dad64cab0 *man/Rng.Rd 3aa9bebddffb9ebb60599b323dcbfaf1 *man/Synchrotron.Rd 43d8d0cc536f8b30a0034a3a338d3bc2 *man/Transport.Rd b5c53e7002df8b21fe5eae10d0b0d587 *man/Trig.Rd 8af97a7a2f2381c6f4eda9226854e0a6 *man/Zeta.Rd 0b0f133ada6daa27c5ee0eef00d04c74 *man/gsl-package.Rd 417be231e3b2ad76fb58f63e6282a843 *src/Makevars.in 3f7c071f1a65529da9c401162d49a54a *src/Makevars.win 2adbf8781af6cb9daaa6dc10db410e54 *src/airy.c 9d9f3a7ab7470189959e645a2de47bcf *src/bessel.c cfc2f52f26529f5162d87b4dba05f010 *src/clausen.c f58e8ead369ee94387edc38f1330ada1 *src/coulomb.c 1a6b4c2639017489ca7757abcd476c8b *src/coupling.c b9e67aa3572a60fc8cfe5651d386a251 *src/dawson.c 07b6bc201b1956c4a5dd90172fdb6cb2 *src/debye.c 5b5cabf6031c19224e7e7ef4ac9e2b6a *src/dilog.c ca96b38cdc06b5c35fee02b26b2bff4d *src/ellint.c bb037c708bd7e7ba735b83b8f5166e0a *src/elljac.c 803c371059fc2b48262c6a611f10e48e *src/error.c 23e873053f5e1544a259ef8444d268f8 *src/expint.c f183cb92f62f2132ebcd6c6e87dadbe9 *src/fermi_dirac.c 34ef890c8b415259143e6cf7773422e0 *src/gamma.c 1c6708c4383e2a01f8ecd829501edea9 *src/gegenbauer.c 42f6f901e8451ca0b1aa6c24b292a3b8 *src/hyperg.c dfa461e5ad77313a206f82f677ee3cac *src/laguerre.c 5c539738e044a51c33f3916873543392 *src/lambert.c 4c21539636e69450c7ab4da6684dc7c9 *src/legendre.c a60c1c9bc368e9c50a8545aab6ca67bc *src/log.c 8768413013d9891c716a3fe0f60826bd *src/multimin.c d108215b94072249889c251a8e9e6f37 *src/poly.c 71feaeeb9d5af092819bec63aeb7e774 *src/pow_int.c da2e2c2995ae699d737da9d234d53877 *src/psi.c 67b89a4fa617eae660b32fd5cfa0ec9e *src/qrng.c 55b3586e6d7df417b6e3f06404061837 *src/rng.c bbff1289bb0e9d8c0ebc7d7de073107a *src/synchrotron.c 1a51f22c165b42a55a43b808c2a713c1 *src/transport.c b5e608445f1e8fa59fcfed76da8dd8e1 *src/trig.c 58ad72acc96459be2e809ba64f4a5331 *src/vector.c 0597d273827001e0b130065ead9c76b4 *src/vector.h 99e7e5ff4af6347ccc272451dc5daa90 *src/zeta.c 47c7066e7d5968a2a5d6d279640fad82 *vignettes/gsl.bib 3301d42c84eae58199688edf0b89e67b *vignettes/gslpaper.Rnw gsl/build/0000755000176000001440000000000012251674041012170 5ustar ripleyusersgsl/build/vignette.rds0000644000176000001440000000033012251674041014523 0ustar ripleyusersuQ0  Q&&;0!\X$r(LmҮ[k_K1 E7)`/ byV ~T6Zmf<+A)`i%:C8<> vI=*Oe~ '%?Aѧ(oeKSɁ3= \.t}jD#a}C/uJw^rgsl/DESCRIPTION0000644000176000001440000000141712627553221012605 0ustar ripleyusersPackage: gsl Version: 1.9-10.1 Depends: R (>= 2.10.0) Date: 2015-12-02 Title: wrapper for the Gnu Scientific Library Author: Robin K. S. Hankin; qrng functions by Duncan Murdoch and multimin by Andrew Clausen SystemRequirements: Gnu Scientific Library version >= 1.12 Description: An R wrapper for the special functions and quasi random number generators of the Gnu Scientific Library (http://www.gnu.org/software/gsl/). See gsl-package.Rd for details of overall package organization, and Misc.Rd for some functions that are widely used in the package, and some tips on installation. Maintainer: Robin K. S. Hankin License: GPL-2 Packaged: 2015-12-02 11:10:29 UTC; ripley NeedsCompilation: yes Repository: CRAN Date/Publication: 2015-12-02 12:31:29 gsl/configure0000755000176000001440000031066012627531607013015 0ustar ripleyusers#! /bin/sh # Guess values for system-dependent variables and create Makefiles. # Generated by GNU Autoconf 2.61. # # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, # 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. # This configure script is free software; the Free Software Foundation # gives unlimited permission to copy, distribute and modify it. ## --------------------- ## ## M4sh Initialization. ## ## --------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in *posix*) set -o posix ;; esac fi # PATH needs CR # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then echo "#! /bin/sh" >conf$$.sh echo "exit 0" >>conf$$.sh chmod +x conf$$.sh if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then PATH_SEPARATOR=';' else PATH_SEPARATOR=: fi rm -f conf$$.sh fi # Support unset when possible. if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then as_unset=unset else as_unset=false fi # IFS # We need space, tab and new line, in precisely that order. Quoting is # there to prevent editors from complaining about space-tab. # (If _AS_PATH_WALK were called with IFS unset, it would disable word # splitting by setting IFS to empty value.) as_nl=' ' IFS=" "" $as_nl" # Find who we are. Look in the path if we contain no directory separator. case $0 in *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done IFS=$as_save_IFS ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 { (exit 1); exit 1; } fi # Work around bugs in pre-3.0 UWIN ksh. for as_var in ENV MAIL MAILPATH do ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var done PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. for as_var in \ LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ LC_TELEPHONE LC_TIME do if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then eval $as_var=C; export $as_var else ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var fi done # Required to use basename. if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi # Name of the executable. as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # CDPATH. $as_unset CDPATH if test "x$CONFIG_SHELL" = x; then if (eval ":") 2>/dev/null; then as_have_required=yes else as_have_required=no fi if test $as_have_required = yes && (eval ": (as_func_return () { (exit \$1) } as_func_success () { as_func_return 0 } as_func_failure () { as_func_return 1 } as_func_ret_success () { return 0 } as_func_ret_failure () { return 1 } exitcode=0 if as_func_success; then : else exitcode=1 echo as_func_success failed. fi if as_func_failure; then exitcode=1 echo as_func_failure succeeded. fi if as_func_ret_success; then : else exitcode=1 echo as_func_ret_success failed. fi if as_func_ret_failure; then exitcode=1 echo as_func_ret_failure succeeded. fi if ( set x; as_func_ret_success y && test x = \"\$1\" ); then : else exitcode=1 echo positional parameters were not saved. fi test \$exitcode = 0) || { (exit 1); exit 1; } ( as_lineno_1=\$LINENO as_lineno_2=\$LINENO test \"x\$as_lineno_1\" != \"x\$as_lineno_2\" && test \"x\`expr \$as_lineno_1 + 1\`\" = \"x\$as_lineno_2\") || { (exit 1); exit 1; } ") 2> /dev/null; then : else as_candidate_shells= as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. case $as_dir in /*) for as_base in sh bash ksh sh5; do as_candidate_shells="$as_candidate_shells $as_dir/$as_base" done;; esac done IFS=$as_save_IFS for as_shell in $as_candidate_shells $SHELL; do # Try only shells that exist, to save several forks. if { test -f "$as_shell" || test -f "$as_shell.exe"; } && { ("$as_shell") 2> /dev/null <<\_ASEOF if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in *posix*) set -o posix ;; esac fi : _ASEOF }; then CONFIG_SHELL=$as_shell as_have_required=yes if { "$as_shell" 2> /dev/null <<\_ASEOF if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in *posix*) set -o posix ;; esac fi : (as_func_return () { (exit $1) } as_func_success () { as_func_return 0 } as_func_failure () { as_func_return 1 } as_func_ret_success () { return 0 } as_func_ret_failure () { return 1 } exitcode=0 if as_func_success; then : else exitcode=1 echo as_func_success failed. fi if as_func_failure; then exitcode=1 echo as_func_failure succeeded. fi if as_func_ret_success; then : else exitcode=1 echo as_func_ret_success failed. fi if as_func_ret_failure; then exitcode=1 echo as_func_ret_failure succeeded. fi if ( set x; as_func_ret_success y && test x = "$1" ); then : else exitcode=1 echo positional parameters were not saved. fi test $exitcode = 0) || { (exit 1); exit 1; } ( as_lineno_1=$LINENO as_lineno_2=$LINENO test "x$as_lineno_1" != "x$as_lineno_2" && test "x`expr $as_lineno_1 + 1`" = "x$as_lineno_2") || { (exit 1); exit 1; } _ASEOF }; then break fi fi done if test "x$CONFIG_SHELL" != x; then for as_var in BASH_ENV ENV do ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var done export CONFIG_SHELL exec "$CONFIG_SHELL" "$as_myself" ${1+"$@"} fi if test $as_have_required = no; then echo This script requires a shell more modern than all the echo shells that I found on your system. Please install a echo modern shell, or manually run the script under such a echo shell if you do have one. { (exit 1); exit 1; } fi fi fi (eval "as_func_return () { (exit \$1) } as_func_success () { as_func_return 0 } as_func_failure () { as_func_return 1 } as_func_ret_success () { return 0 } as_func_ret_failure () { return 1 } exitcode=0 if as_func_success; then : else exitcode=1 echo as_func_success failed. fi if as_func_failure; then exitcode=1 echo as_func_failure succeeded. fi if as_func_ret_success; then : else exitcode=1 echo as_func_ret_success failed. fi if as_func_ret_failure; then exitcode=1 echo as_func_ret_failure succeeded. fi if ( set x; as_func_ret_success y && test x = \"\$1\" ); then : else exitcode=1 echo positional parameters were not saved. fi test \$exitcode = 0") || { echo No shell found that supports shell functions. echo Please tell autoconf@gnu.org about your system, echo including any error possibly output before this echo message } as_lineno_1=$LINENO as_lineno_2=$LINENO test "x$as_lineno_1" != "x$as_lineno_2" && test "x`expr $as_lineno_1 + 1`" = "x$as_lineno_2" || { # Create $as_me.lineno as a copy of $as_myself, but with $LINENO # uniformly replaced by the line number. The first 'sed' inserts a # line-number line after each line using $LINENO; the second 'sed' # does the real work. The second script uses 'N' to pair each # line-number line with the line containing $LINENO, and appends # trailing '-' during substitution so that $LINENO is not a special # case at line end. # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the # scripts with optimization help from Paolo Bonzini. Blame Lee # E. McMahon (1931-1989) for sed's syntax. :-) sed -n ' p /[$]LINENO/= ' <$as_myself | sed ' s/[$]LINENO.*/&-/ t lineno b :lineno N :loop s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ t loop s/-\n.*// ' >$as_me.lineno && chmod +x "$as_me.lineno" || { echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2 { (exit 1); exit 1; }; } # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the # original and so on. Autoconf is especially sensitive to this). . "./$as_me.lineno" # Exit status is that of the last command. exit } if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in -n*) case `echo 'x\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. *) ECHO_C='\c';; esac;; *) ECHO_N='-n';; esac if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir fi echo >conf$$.file if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. # In both cases, we have to default to `cp -p'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -p' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -p' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null if mkdir -p . 2>/dev/null; then as_mkdir_p=: else test -d ./-p && rmdir ./-p as_mkdir_p=false fi if test -x / >/dev/null 2>&1; then as_test_x='test -x' else if ls -dL / >/dev/null 2>&1; then as_ls_L_option=L else as_ls_L_option= fi as_test_x=' eval sh -c '\'' if test -d "$1"; then test -d "$1/."; else case $1 in -*)set "./$1";; esac; case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in ???[sx]*):;;*)false;;esac;fi '\'' sh ' fi as_executable_p=$as_test_x # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" exec 7<&0 &1 # Name of the host. # hostname on some systems (SVR3.2, Linux) returns a bogus exit status, # so uname gets run too. ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` # # Initializations. # ac_default_prefix=/usr/local ac_clean_files= ac_config_libobj_dir=. LIBOBJS= cross_compiling=no subdirs= MFLAGS= MAKEFLAGS= SHELL=${CONFIG_SHELL-/bin/sh} # Identity of this package. PACKAGE_NAME= PACKAGE_TARNAME= PACKAGE_VERSION= PACKAGE_STRING= PACKAGE_BUGREPORT= ac_unique_file="src/airy.c" ac_subst_vars='SHELL PATH_SEPARATOR PACKAGE_NAME PACKAGE_TARNAME PACKAGE_VERSION PACKAGE_STRING PACKAGE_BUGREPORT exec_prefix prefix program_transform_name bindir sbindir libexecdir datarootdir datadir sysconfdir sharedstatedir localstatedir includedir oldincludedir docdir infodir htmldir dvidir pdfdir psdir libdir localedir mandir DEFS ECHO_C ECHO_N ECHO_T LIBS build_alias host_alias target_alias GSL_CONFIG CC CFLAGS LDFLAGS CPPFLAGS ac_ct_CC EXEEXT OBJEXT GSL_CFLAGS GSL_LIBS LIBOBJS LTLIBOBJS' ac_subst_files='' ac_precious_vars='build_alias host_alias target_alias CC CFLAGS LDFLAGS LIBS CPPFLAGS' # Initialize some variables set by options. ac_init_help= ac_init_version=false # The variables have the same names as the options, with # dashes changed to underlines. cache_file=/dev/null exec_prefix=NONE no_create= no_recursion= prefix=NONE program_prefix=NONE program_suffix=NONE program_transform_name=s,x,x, silent= site= srcdir= verbose= x_includes=NONE x_libraries=NONE # Installation directory options. # These are left unexpanded so users can "make install exec_prefix=/foo" # and all the variables that are supposed to be based on exec_prefix # by default will actually change. # Use braces instead of parens because sh, perl, etc. also accept them. # (The list follows the same order as the GNU Coding Standards.) bindir='${exec_prefix}/bin' sbindir='${exec_prefix}/sbin' libexecdir='${exec_prefix}/libexec' datarootdir='${prefix}/share' datadir='${datarootdir}' sysconfdir='${prefix}/etc' sharedstatedir='${prefix}/com' localstatedir='${prefix}/var' includedir='${prefix}/include' oldincludedir='/usr/include' docdir='${datarootdir}/doc/${PACKAGE}' infodir='${datarootdir}/info' htmldir='${docdir}' dvidir='${docdir}' pdfdir='${docdir}' psdir='${docdir}' libdir='${exec_prefix}/lib' localedir='${datarootdir}/locale' mandir='${datarootdir}/man' ac_prev= ac_dashdash= for ac_option do # If the previous option needs an argument, assign it. if test -n "$ac_prev"; then eval $ac_prev=\$ac_option ac_prev= continue fi case $ac_option in *=*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;; *) ac_optarg=yes ;; esac # Accept the important Cygnus configure options, so we can diagnose typos. case $ac_dashdash$ac_option in --) ac_dashdash=yes ;; -bindir | --bindir | --bindi | --bind | --bin | --bi) ac_prev=bindir ;; -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) bindir=$ac_optarg ;; -build | --build | --buil | --bui | --bu) ac_prev=build_alias ;; -build=* | --build=* | --buil=* | --bui=* | --bu=*) build_alias=$ac_optarg ;; -cache-file | --cache-file | --cache-fil | --cache-fi \ | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) ac_prev=cache_file ;; -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) cache_file=$ac_optarg ;; --config-cache | -C) cache_file=config.cache ;; -datadir | --datadir | --datadi | --datad) ac_prev=datadir ;; -datadir=* | --datadir=* | --datadi=* | --datad=*) datadir=$ac_optarg ;; -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \ | --dataroo | --dataro | --datar) ac_prev=datarootdir ;; -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \ | --dataroot=* | --dataroo=* | --dataro=* | --datar=*) datarootdir=$ac_optarg ;; -disable-* | --disable-*) ac_feature=`expr "x$ac_option" : 'x-*disable-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_feature" : ".*[^-._$as_cr_alnum]" >/dev/null && { echo "$as_me: error: invalid feature name: $ac_feature" >&2 { (exit 1); exit 1; }; } ac_feature=`echo $ac_feature | sed 's/[-.]/_/g'` eval enable_$ac_feature=no ;; -docdir | --docdir | --docdi | --doc | --do) ac_prev=docdir ;; -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*) docdir=$ac_optarg ;; -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv) ac_prev=dvidir ;; -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*) dvidir=$ac_optarg ;; -enable-* | --enable-*) ac_feature=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_feature" : ".*[^-._$as_cr_alnum]" >/dev/null && { echo "$as_me: error: invalid feature name: $ac_feature" >&2 { (exit 1); exit 1; }; } ac_feature=`echo $ac_feature | sed 's/[-.]/_/g'` eval enable_$ac_feature=\$ac_optarg ;; -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ | --exec | --exe | --ex) ac_prev=exec_prefix ;; -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ | --exec=* | --exe=* | --ex=*) exec_prefix=$ac_optarg ;; -gas | --gas | --ga | --g) # Obsolete; use --with-gas. with_gas=yes ;; -help | --help | --hel | --he | -h) ac_init_help=long ;; -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) ac_init_help=recursive ;; -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) ac_init_help=short ;; -host | --host | --hos | --ho) ac_prev=host_alias ;; -host=* | --host=* | --hos=* | --ho=*) host_alias=$ac_optarg ;; -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht) ac_prev=htmldir ;; -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \ | --ht=*) htmldir=$ac_optarg ;; -includedir | --includedir | --includedi | --included | --include \ | --includ | --inclu | --incl | --inc) ac_prev=includedir ;; -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ | --includ=* | --inclu=* | --incl=* | --inc=*) includedir=$ac_optarg ;; -infodir | --infodir | --infodi | --infod | --info | --inf) ac_prev=infodir ;; -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) infodir=$ac_optarg ;; -libdir | --libdir | --libdi | --libd) ac_prev=libdir ;; -libdir=* | --libdir=* | --libdi=* | --libd=*) libdir=$ac_optarg ;; -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ | --libexe | --libex | --libe) ac_prev=libexecdir ;; -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ | --libexe=* | --libex=* | --libe=*) libexecdir=$ac_optarg ;; -localedir | --localedir | --localedi | --localed | --locale) ac_prev=localedir ;; -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*) localedir=$ac_optarg ;; -localstatedir | --localstatedir | --localstatedi | --localstated \ | --localstate | --localstat | --localsta | --localst | --locals) ac_prev=localstatedir ;; -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*) localstatedir=$ac_optarg ;; -mandir | --mandir | --mandi | --mand | --man | --ma | --m) ac_prev=mandir ;; -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) mandir=$ac_optarg ;; -nfp | --nfp | --nf) # Obsolete; use --without-fp. with_fp=no ;; -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c | -n) no_create=yes ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) no_recursion=yes ;; -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ | --oldin | --oldi | --old | --ol | --o) ac_prev=oldincludedir ;; -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) oldincludedir=$ac_optarg ;; -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) ac_prev=prefix ;; -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) prefix=$ac_optarg ;; -program-prefix | --program-prefix | --program-prefi | --program-pref \ | --program-pre | --program-pr | --program-p) ac_prev=program_prefix ;; -program-prefix=* | --program-prefix=* | --program-prefi=* \ | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) program_prefix=$ac_optarg ;; -program-suffix | --program-suffix | --program-suffi | --program-suff \ | --program-suf | --program-su | --program-s) ac_prev=program_suffix ;; -program-suffix=* | --program-suffix=* | --program-suffi=* \ | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) program_suffix=$ac_optarg ;; -program-transform-name | --program-transform-name \ | --program-transform-nam | --program-transform-na \ | --program-transform-n | --program-transform- \ | --program-transform | --program-transfor \ | --program-transfo | --program-transf \ | --program-trans | --program-tran \ | --progr-tra | --program-tr | --program-t) ac_prev=program_transform_name ;; -program-transform-name=* | --program-transform-name=* \ | --program-transform-nam=* | --program-transform-na=* \ | --program-transform-n=* | --program-transform-=* \ | --program-transform=* | --program-transfor=* \ | --program-transfo=* | --program-transf=* \ | --program-trans=* | --program-tran=* \ | --progr-tra=* | --program-tr=* | --program-t=*) program_transform_name=$ac_optarg ;; -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd) ac_prev=pdfdir ;; -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*) pdfdir=$ac_optarg ;; -psdir | --psdir | --psdi | --psd | --ps) ac_prev=psdir ;; -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*) psdir=$ac_optarg ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) silent=yes ;; -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) ac_prev=sbindir ;; -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ | --sbi=* | --sb=*) sbindir=$ac_optarg ;; -sharedstatedir | --sharedstatedir | --sharedstatedi \ | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ | --sharedst | --shareds | --shared | --share | --shar \ | --sha | --sh) ac_prev=sharedstatedir ;; -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ | --sha=* | --sh=*) sharedstatedir=$ac_optarg ;; -site | --site | --sit) ac_prev=site ;; -site=* | --site=* | --sit=*) site=$ac_optarg ;; -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) ac_prev=srcdir ;; -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) srcdir=$ac_optarg ;; -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ | --syscon | --sysco | --sysc | --sys | --sy) ac_prev=sysconfdir ;; -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) sysconfdir=$ac_optarg ;; -target | --target | --targe | --targ | --tar | --ta | --t) ac_prev=target_alias ;; -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) target_alias=$ac_optarg ;; -v | -verbose | --verbose | --verbos | --verbo | --verb) verbose=yes ;; -version | --version | --versio | --versi | --vers | -V) ac_init_version=: ;; -with-* | --with-*) ac_package=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_package" : ".*[^-._$as_cr_alnum]" >/dev/null && { echo "$as_me: error: invalid package name: $ac_package" >&2 { (exit 1); exit 1; }; } ac_package=`echo $ac_package | sed 's/[-.]/_/g'` eval with_$ac_package=\$ac_optarg ;; -without-* | --without-*) ac_package=`expr "x$ac_option" : 'x-*without-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_package" : ".*[^-._$as_cr_alnum]" >/dev/null && { echo "$as_me: error: invalid package name: $ac_package" >&2 { (exit 1); exit 1; }; } ac_package=`echo $ac_package | sed 's/[-.]/_/g'` eval with_$ac_package=no ;; --x) # Obsolete; use --with-x. with_x=yes ;; -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ | --x-incl | --x-inc | --x-in | --x-i) ac_prev=x_includes ;; -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) x_includes=$ac_optarg ;; -x-libraries | --x-libraries | --x-librarie | --x-librari \ | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) ac_prev=x_libraries ;; -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) x_libraries=$ac_optarg ;; -*) { echo "$as_me: error: unrecognized option: $ac_option Try \`$0 --help' for more information." >&2 { (exit 1); exit 1; }; } ;; *=*) ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` # Reject names that are not valid shell variable names. expr "x$ac_envvar" : ".*[^_$as_cr_alnum]" >/dev/null && { echo "$as_me: error: invalid variable name: $ac_envvar" >&2 { (exit 1); exit 1; }; } eval $ac_envvar=\$ac_optarg export $ac_envvar ;; *) # FIXME: should be removed in autoconf 3.0. echo "$as_me: WARNING: you should use --build, --host, --target" >&2 expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && echo "$as_me: WARNING: invalid host type: $ac_option" >&2 : ${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option} ;; esac done if test -n "$ac_prev"; then ac_option=--`echo $ac_prev | sed 's/_/-/g'` { echo "$as_me: error: missing argument to $ac_option" >&2 { (exit 1); exit 1; }; } fi # Be sure to have absolute directory names. for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \ datadir sysconfdir sharedstatedir localstatedir includedir \ oldincludedir docdir infodir htmldir dvidir pdfdir psdir \ libdir localedir mandir do eval ac_val=\$$ac_var case $ac_val in [\\/$]* | ?:[\\/]* ) continue;; NONE | '' ) case $ac_var in *prefix ) continue;; esac;; esac { echo "$as_me: error: expected an absolute directory name for --$ac_var: $ac_val" >&2 { (exit 1); exit 1; }; } done # There might be people who depend on the old broken behavior: `$host' # used to hold the argument of --host etc. # FIXME: To remove some day. build=$build_alias host=$host_alias target=$target_alias # FIXME: To remove some day. if test "x$host_alias" != x; then if test "x$build_alias" = x; then cross_compiling=maybe echo "$as_me: WARNING: If you wanted to set the --build type, don't use --host. If a cross compiler is detected then cross compile mode will be used." >&2 elif test "x$build_alias" != "x$host_alias"; then cross_compiling=yes fi fi ac_tool_prefix= test -n "$host_alias" && ac_tool_prefix=$host_alias- test "$silent" = yes && exec 6>/dev/null ac_pwd=`pwd` && test -n "$ac_pwd" && ac_ls_di=`ls -di .` && ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` || { echo "$as_me: error: Working directory cannot be determined" >&2 { (exit 1); exit 1; }; } test "X$ac_ls_di" = "X$ac_pwd_ls_di" || { echo "$as_me: error: pwd does not report name of working directory" >&2 { (exit 1); exit 1; }; } # Find the source files, if location was not specified. if test -z "$srcdir"; then ac_srcdir_defaulted=yes # Try the directory containing this script, then the parent directory. ac_confdir=`$as_dirname -- "$0" || $as_expr X"$0" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$0" : 'X\(//\)[^/]' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || echo X"$0" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` srcdir=$ac_confdir if test ! -r "$srcdir/$ac_unique_file"; then srcdir=.. fi else ac_srcdir_defaulted=no fi if test ! -r "$srcdir/$ac_unique_file"; then test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .." { echo "$as_me: error: cannot find sources ($ac_unique_file) in $srcdir" >&2 { (exit 1); exit 1; }; } fi ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work" ac_abs_confdir=`( cd "$srcdir" && test -r "./$ac_unique_file" || { echo "$as_me: error: $ac_msg" >&2 { (exit 1); exit 1; }; } pwd)` # When building in place, set srcdir=. if test "$ac_abs_confdir" = "$ac_pwd"; then srcdir=. fi # Remove unnecessary trailing slashes from srcdir. # Double slashes in file names in object file debugging info # mess up M-x gdb in Emacs. case $srcdir in */) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;; esac for ac_var in $ac_precious_vars; do eval ac_env_${ac_var}_set=\${${ac_var}+set} eval ac_env_${ac_var}_value=\$${ac_var} eval ac_cv_env_${ac_var}_set=\${${ac_var}+set} eval ac_cv_env_${ac_var}_value=\$${ac_var} done # # Report the --help message. # if test "$ac_init_help" = "long"; then # Omit some internal or obsolete options to make the list less imposing. # This message is too long to be a string in the A/UX 3.1 sh. cat <<_ACEOF \`configure' configures this package to adapt to many kinds of systems. Usage: $0 [OPTION]... [VAR=VALUE]... To assign environment variables (e.g., CC, CFLAGS...), specify them as VAR=VALUE. See below for descriptions of some of the useful variables. Defaults for the options are specified in brackets. Configuration: -h, --help display this help and exit --help=short display options specific to this package --help=recursive display the short help of all the included packages -V, --version display version information and exit -q, --quiet, --silent do not print \`checking...' messages --cache-file=FILE cache test results in FILE [disabled] -C, --config-cache alias for \`--cache-file=config.cache' -n, --no-create do not create output files --srcdir=DIR find the sources in DIR [configure dir or \`..'] Installation directories: --prefix=PREFIX install architecture-independent files in PREFIX [$ac_default_prefix] --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX [PREFIX] By default, \`make install' will install all the files in \`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify an installation prefix other than \`$ac_default_prefix' using \`--prefix', for instance \`--prefix=\$HOME'. For better control, use the options below. Fine tuning of the installation directories: --bindir=DIR user executables [EPREFIX/bin] --sbindir=DIR system admin executables [EPREFIX/sbin] --libexecdir=DIR program executables [EPREFIX/libexec] --sysconfdir=DIR read-only single-machine data [PREFIX/etc] --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] --localstatedir=DIR modifiable single-machine data [PREFIX/var] --libdir=DIR object code libraries [EPREFIX/lib] --includedir=DIR C header files [PREFIX/include] --oldincludedir=DIR C header files for non-gcc [/usr/include] --datarootdir=DIR read-only arch.-independent data root [PREFIX/share] --datadir=DIR read-only architecture-independent data [DATAROOTDIR] --infodir=DIR info documentation [DATAROOTDIR/info] --localedir=DIR locale-dependent data [DATAROOTDIR/locale] --mandir=DIR man documentation [DATAROOTDIR/man] --docdir=DIR documentation root [DATAROOTDIR/doc/PACKAGE] --htmldir=DIR html documentation [DOCDIR] --dvidir=DIR dvi documentation [DOCDIR] --pdfdir=DIR pdf documentation [DOCDIR] --psdir=DIR ps documentation [DOCDIR] _ACEOF cat <<\_ACEOF _ACEOF fi if test -n "$ac_init_help"; then cat <<\_ACEOF Some influential environment variables: CC C compiler command CFLAGS C compiler flags LDFLAGS linker flags, e.g. -L if you have libraries in a nonstandard directory LIBS libraries to pass to the linker, e.g. -l CPPFLAGS C/C++/Objective C preprocessor flags, e.g. -I if you have headers in a nonstandard directory Use these variables to override the choices made by `configure' or to help it to find libraries and programs with nonstandard names/locations. _ACEOF ac_status=$? fi if test "$ac_init_help" = "recursive"; then # If there are subdirs, report their specific --help. for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue test -d "$ac_dir" || continue ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,/..,g;s,/,,'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; esac ;; esac ac_abs_top_builddir=$ac_pwd ac_abs_builddir=$ac_pwd$ac_dir_suffix # for backward compatibility: ac_top_builddir=$ac_top_build_prefix case $srcdir in .) # We are building in place. ac_srcdir=. ac_top_srcdir=$ac_top_builddir_sub ac_abs_top_srcdir=$ac_pwd ;; [\\/]* | ?:[\\/]* ) # Absolute name. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ac_abs_top_srcdir=$srcdir ;; *) # Relative name. ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_build_prefix$srcdir ac_abs_top_srcdir=$ac_pwd/$srcdir ;; esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix cd "$ac_dir" || { ac_status=$?; continue; } # Check for guested configure. if test -f "$ac_srcdir/configure.gnu"; then echo && $SHELL "$ac_srcdir/configure.gnu" --help=recursive elif test -f "$ac_srcdir/configure"; then echo && $SHELL "$ac_srcdir/configure" --help=recursive else echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 fi || ac_status=$? cd "$ac_pwd" || { ac_status=$?; break; } done fi test -n "$ac_init_help" && exit $ac_status if $ac_init_version; then cat <<\_ACEOF configure generated by GNU Autoconf 2.61 Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. This configure script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it. _ACEOF exit fi cat >config.log <<_ACEOF This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. It was created by $as_me, which was generated by GNU Autoconf 2.61. Invocation command line was $ $0 $@ _ACEOF exec 5>>config.log { cat <<_ASUNAME ## --------- ## ## Platform. ## ## --------- ## hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` uname -m = `(uname -m) 2>/dev/null || echo unknown` uname -r = `(uname -r) 2>/dev/null || echo unknown` uname -s = `(uname -s) 2>/dev/null || echo unknown` uname -v = `(uname -v) 2>/dev/null || echo unknown` /usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` /bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` /bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` /usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` /bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` /bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` _ASUNAME as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. echo "PATH: $as_dir" done IFS=$as_save_IFS } >&5 cat >&5 <<_ACEOF ## ----------- ## ## Core tests. ## ## ----------- ## _ACEOF # Keep a trace of the command line. # Strip out --no-create and --no-recursion so they do not pile up. # Strip out --silent because we don't want to record it for future runs. # Also quote any args containing shell meta-characters. # Make two passes to allow for proper duplicate-argument suppression. ac_configure_args= ac_configure_args0= ac_configure_args1= ac_must_keep_next=false for ac_pass in 1 2 do for ac_arg do case $ac_arg in -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) continue ;; *\'*) ac_arg=`echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; esac case $ac_pass in 1) ac_configure_args0="$ac_configure_args0 '$ac_arg'" ;; 2) ac_configure_args1="$ac_configure_args1 '$ac_arg'" if test $ac_must_keep_next = true; then ac_must_keep_next=false # Got value, back to normal. else case $ac_arg in *=* | --config-cache | -C | -disable-* | --disable-* \ | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ | -with-* | --with-* | -without-* | --without-* | --x) case "$ac_configure_args0 " in "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; esac ;; -* ) ac_must_keep_next=true ;; esac fi ac_configure_args="$ac_configure_args '$ac_arg'" ;; esac done done $as_unset ac_configure_args0 || test "${ac_configure_args0+set}" != set || { ac_configure_args0=; export ac_configure_args0; } $as_unset ac_configure_args1 || test "${ac_configure_args1+set}" != set || { ac_configure_args1=; export ac_configure_args1; } # When interrupted or exit'd, cleanup temporary files, and complete # config.log. We remove comments because anyway the quotes in there # would cause problems or look ugly. # WARNING: Use '\'' to represent an apostrophe within the trap. # WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug. trap 'exit_status=$? # Save into config.log some information that might help in debugging. { echo cat <<\_ASBOX ## ---------------- ## ## Cache variables. ## ## ---------------- ## _ASBOX echo # The following way of writing the cache mishandles newlines in values, ( for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do eval ac_val=\$$ac_var case $ac_val in #( *${as_nl}*) case $ac_var in #( *_cv_*) { echo "$as_me:$LINENO: WARNING: Cache variable $ac_var contains a newline." >&5 echo "$as_me: WARNING: Cache variable $ac_var contains a newline." >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( *) $as_unset $ac_var ;; esac ;; esac done (set) 2>&1 | case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #( *${as_nl}ac_space=\ *) sed -n \ "s/'\''/'\''\\\\'\'''\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p" ;; #( *) sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" ;; esac | sort ) echo cat <<\_ASBOX ## ----------------- ## ## Output variables. ## ## ----------------- ## _ASBOX echo for ac_var in $ac_subst_vars do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac echo "$ac_var='\''$ac_val'\''" done | sort echo if test -n "$ac_subst_files"; then cat <<\_ASBOX ## ------------------- ## ## File substitutions. ## ## ------------------- ## _ASBOX echo for ac_var in $ac_subst_files do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac echo "$ac_var='\''$ac_val'\''" done | sort echo fi if test -s confdefs.h; then cat <<\_ASBOX ## ----------- ## ## confdefs.h. ## ## ----------- ## _ASBOX echo cat confdefs.h echo fi test "$ac_signal" != 0 && echo "$as_me: caught signal $ac_signal" echo "$as_me: exit $exit_status" } >&5 rm -f core *.core core.conftest.* && rm -f -r conftest* confdefs* conf$$* $ac_clean_files && exit $exit_status ' 0 for ac_signal in 1 2 13 15; do trap 'ac_signal='$ac_signal'; { (exit 1); exit 1; }' $ac_signal done ac_signal=0 # confdefs.h avoids OS command line length limits that DEFS can exceed. rm -f -r conftest* confdefs.h # Predefined preprocessor variables. cat >>confdefs.h <<_ACEOF #define PACKAGE_NAME "$PACKAGE_NAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_TARNAME "$PACKAGE_TARNAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_VERSION "$PACKAGE_VERSION" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_STRING "$PACKAGE_STRING" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT" _ACEOF # Let the site file select an alternate cache file if it wants to. # Prefer explicitly selected file to automatically selected ones. if test -n "$CONFIG_SITE"; then set x "$CONFIG_SITE" elif test "x$prefix" != xNONE; then set x "$prefix/share/config.site" "$prefix/etc/config.site" else set x "$ac_default_prefix/share/config.site" \ "$ac_default_prefix/etc/config.site" fi shift for ac_site_file do if test -r "$ac_site_file"; then { echo "$as_me:$LINENO: loading site script $ac_site_file" >&5 echo "$as_me: loading site script $ac_site_file" >&6;} sed 's/^/| /' "$ac_site_file" >&5 . "$ac_site_file" fi done if test -r "$cache_file"; then # Some versions of bash will fail to source /dev/null (special # files actually), so we avoid doing that. if test -f "$cache_file"; then { echo "$as_me:$LINENO: loading cache $cache_file" >&5 echo "$as_me: loading cache $cache_file" >&6;} case $cache_file in [\\/]* | ?:[\\/]* ) . "$cache_file";; *) . "./$cache_file";; esac fi else { echo "$as_me:$LINENO: creating cache $cache_file" >&5 echo "$as_me: creating cache $cache_file" >&6;} >$cache_file fi # Check that the precious variables saved in the cache have kept the same # value. ac_cache_corrupted=false for ac_var in $ac_precious_vars; do eval ac_old_set=\$ac_cv_env_${ac_var}_set eval ac_new_set=\$ac_env_${ac_var}_set eval ac_old_val=\$ac_cv_env_${ac_var}_value eval ac_new_val=\$ac_env_${ac_var}_value case $ac_old_set,$ac_new_set in set,) { echo "$as_me:$LINENO: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} ac_cache_corrupted=: ;; ,set) { echo "$as_me:$LINENO: error: \`$ac_var' was not set in the previous run" >&5 echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} ac_cache_corrupted=: ;; ,);; *) if test "x$ac_old_val" != "x$ac_new_val"; then { echo "$as_me:$LINENO: error: \`$ac_var' has changed since the previous run:" >&5 echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} { echo "$as_me:$LINENO: former value: $ac_old_val" >&5 echo "$as_me: former value: $ac_old_val" >&2;} { echo "$as_me:$LINENO: current value: $ac_new_val" >&5 echo "$as_me: current value: $ac_new_val" >&2;} ac_cache_corrupted=: fi;; esac # Pass precious variables to config.status. if test "$ac_new_set" = set; then case $ac_new_val in *\'*) ac_arg=$ac_var=`echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; *) ac_arg=$ac_var=$ac_new_val ;; esac case " $ac_configure_args " in *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. *) ac_configure_args="$ac_configure_args '$ac_arg'" ;; esac fi done if $ac_cache_corrupted; then { echo "$as_me:$LINENO: error: changes in the environment can compromise the build" >&5 echo "$as_me: error: changes in the environment can compromise the build" >&2;} { { echo "$as_me:$LINENO: error: run \`make distclean' and/or \`rm $cache_file' and start over" >&5 echo "$as_me: error: run \`make distclean' and/or \`rm $cache_file' and start over" >&2;} { (exit 1); exit 1; }; } fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu #AC_CHECK_LIB(gsl, gsl_sf_airy_Ai_e, # [LIBS="${LIBS} -lgsl -lgslcblas"], # [AC_MSG_ERROR([Cannot find Gnu Scientific Library.])], # [-lgslcblas]) #AC_CHECK_HEADER([gsl/gsl_version.h], , # [AC_MSG_ERROR([Cannot find GSL headers.])]) # Following lines kindly supplied by Dirk Eddelbuettel ## Use gsl-config to find arguments for compiler and linker flags ## ## Check for non-standard programs: gsl-config(1) # Extract the first word of "gsl-config", so it can be a program name with args. set dummy gsl-config; ac_word=$2 { echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } if test "${ac_cv_path_GSL_CONFIG+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else case $GSL_CONFIG in [\\/]* | ?:[\\/]*) ac_cv_path_GSL_CONFIG="$GSL_CONFIG" # Let the user override the test with a path. ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_path_GSL_CONFIG="$as_dir/$ac_word$ac_exec_ext" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS ;; esac fi GSL_CONFIG=$ac_cv_path_GSL_CONFIG if test -n "$GSL_CONFIG"; then { echo "$as_me:$LINENO: result: $GSL_CONFIG" >&5 echo "${ECHO_T}$GSL_CONFIG" >&6; } else { echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6; } fi ## If gsl-config was found, let's use it if test "${GSL_CONFIG}" != ""; then # Use gsl-config for header and linker arguments GSL_CFLAGS=`${GSL_CONFIG} --cflags` GSL_LIBS=`${GSL_CONFIG} --libs` else { { echo "$as_me:$LINENO: error: gsl-config not found, is GSL installed?" >&5 echo "$as_me: error: gsl-config not found, is GSL installed?" >&2;} { (exit 1); exit 1; }; } fi { echo "$as_me:$LINENO: checking if GSL version >= 1.12" >&5 echo $ECHO_N "checking if GSL version >= 1.12... $ECHO_C" >&6; } ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. set dummy ${ac_tool_prefix}gcc; ac_word=$2 { echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } if test "${ac_cv_prog_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_CC="${ac_tool_prefix}gcc" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { echo "$as_me:$LINENO: result: $CC" >&5 echo "${ECHO_T}$CC" >&6; } else { echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6; } fi fi if test -z "$ac_cv_prog_CC"; then ac_ct_CC=$CC # Extract the first word of "gcc", so it can be a program name with args. set dummy gcc; ac_word=$2 { echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } if test "${ac_cv_prog_ac_ct_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_ac_ct_CC="gcc" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { echo "$as_me:$LINENO: result: $ac_ct_CC" >&5 echo "${ECHO_T}$ac_ct_CC" >&6; } else { echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6; } fi if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { echo "$as_me:$LINENO: WARNING: In the future, Autoconf will not detect cross-tools whose name does not start with the host triplet. If you think this configuration is useful to you, please write to autoconf@gnu.org." >&5 echo "$as_me: WARNING: In the future, Autoconf will not detect cross-tools whose name does not start with the host triplet. If you think this configuration is useful to you, please write to autoconf@gnu.org." >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi else CC="$ac_cv_prog_CC" fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. set dummy ${ac_tool_prefix}cc; ac_word=$2 { echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } if test "${ac_cv_prog_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_CC="${ac_tool_prefix}cc" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { echo "$as_me:$LINENO: result: $CC" >&5 echo "${ECHO_T}$CC" >&6; } else { echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6; } fi fi fi if test -z "$CC"; then # Extract the first word of "cc", so it can be a program name with args. set dummy cc; ac_word=$2 { echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } if test "${ac_cv_prog_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else ac_prog_rejected=no as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then ac_prog_rejected=yes continue fi ac_cv_prog_CC="cc" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS if test $ac_prog_rejected = yes; then # We found a bogon in the path, so make sure we never use it. set dummy $ac_cv_prog_CC shift if test $# != 0; then # We chose a different compiler from the bogus one. # However, it has the same basename, so the bogon will be chosen # first if we set CC to just the basename; use the full file name. shift ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" fi fi fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { echo "$as_me:$LINENO: result: $CC" >&5 echo "${ECHO_T}$CC" >&6; } else { echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6; } fi fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then for ac_prog in cl.exe do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } if test "${ac_cv_prog_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_CC="$ac_tool_prefix$ac_prog" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { echo "$as_me:$LINENO: result: $CC" >&5 echo "${ECHO_T}$CC" >&6; } else { echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6; } fi test -n "$CC" && break done fi if test -z "$CC"; then ac_ct_CC=$CC for ac_prog in cl.exe do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } if test "${ac_cv_prog_ac_ct_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_ac_ct_CC="$ac_prog" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { echo "$as_me:$LINENO: result: $ac_ct_CC" >&5 echo "${ECHO_T}$ac_ct_CC" >&6; } else { echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6; } fi test -n "$ac_ct_CC" && break done if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { echo "$as_me:$LINENO: WARNING: In the future, Autoconf will not detect cross-tools whose name does not start with the host triplet. If you think this configuration is useful to you, please write to autoconf@gnu.org." >&5 echo "$as_me: WARNING: In the future, Autoconf will not detect cross-tools whose name does not start with the host triplet. If you think this configuration is useful to you, please write to autoconf@gnu.org." >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi fi fi test -z "$CC" && { { echo "$as_me:$LINENO: error: no acceptable C compiler found in \$PATH See \`config.log' for more details." >&5 echo "$as_me: error: no acceptable C compiler found in \$PATH See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } # Provide some information about the compiler. echo "$as_me:$LINENO: checking for C compiler version" >&5 ac_compiler=`set X $ac_compile; echo $2` { (ac_try="$ac_compiler --version >&5" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compiler --version >&5") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } { (ac_try="$ac_compiler -v >&5" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compiler -v >&5") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } { (ac_try="$ac_compiler -V >&5" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compiler -V >&5") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files a.out a.exe b.out" # Try to create an executable without -o first, disregard a.out. # It will help us diagnose broken compilers, and finding out an intuition # of exeext. { echo "$as_me:$LINENO: checking for C compiler default output file name" >&5 echo $ECHO_N "checking for C compiler default output file name... $ECHO_C" >&6; } ac_link_default=`echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` # # List of possible output files, starting from the most likely. # The algorithm is not robust to junk in `.', hence go to wildcards (a.*) # only as a last resort. b.out is created by i960 compilers. ac_files='a_out.exe a.exe conftest.exe a.out conftest a.* conftest.* b.out' # # The IRIX 6 linker writes into existing files which may not be # executable, retaining their permissions. Remove them first so a # subsequent execution test works. ac_rmfiles= for ac_file in $ac_files do case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.o | *.obj ) ;; * ) ac_rmfiles="$ac_rmfiles $ac_file";; esac done rm -f $ac_rmfiles if { (ac_try="$ac_link_default" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_link_default") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; then # Autoconf-2.13 could set the ac_cv_exeext variable to `no'. # So ignore a value of `no', otherwise this would lead to `EXEEXT = no' # in a Makefile. We should not override ac_cv_exeext if it was cached, # so that the user can short-circuit this test for compilers unknown to # Autoconf. for ac_file in $ac_files '' do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.o | *.obj ) ;; [ab].out ) # We found the default executable, but exeext='' is most # certainly right. break;; *.* ) if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no; then :; else ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` fi # We set ac_cv_exeext here because the later test for it is not # safe: cross compilers may not add the suffix if given an `-o' # argument, so we may need to know it at that point already. # Even if this section looks crufty: it has the advantage of # actually working. break;; * ) break;; esac done test "$ac_cv_exeext" = no && ac_cv_exeext= else ac_file='' fi { echo "$as_me:$LINENO: result: $ac_file" >&5 echo "${ECHO_T}$ac_file" >&6; } if test -z "$ac_file"; then echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { echo "$as_me:$LINENO: error: C compiler cannot create executables See \`config.log' for more details." >&5 echo "$as_me: error: C compiler cannot create executables See \`config.log' for more details." >&2;} { (exit 77); exit 77; }; } fi ac_exeext=$ac_cv_exeext # Check that the compiler produces executables we can run. If not, either # the compiler is broken, or we cross compile. { echo "$as_me:$LINENO: checking whether the C compiler works" >&5 echo $ECHO_N "checking whether the C compiler works... $ECHO_C" >&6; } # FIXME: These cross compiler hacks should be removed for Autoconf 3.0 # If not cross compiling, check that we can run a simple program. if test "$cross_compiling" != yes; then if { ac_try='./$ac_file' { (case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_try") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then cross_compiling=no else if test "$cross_compiling" = maybe; then cross_compiling=yes else { { echo "$as_me:$LINENO: error: cannot run C compiled programs. If you meant to cross compile, use \`--host'. See \`config.log' for more details." >&5 echo "$as_me: error: cannot run C compiled programs. If you meant to cross compile, use \`--host'. See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } fi fi fi { echo "$as_me:$LINENO: result: yes" >&5 echo "${ECHO_T}yes" >&6; } rm -f a.out a.exe conftest$ac_cv_exeext b.out ac_clean_files=$ac_clean_files_save # Check that the compiler produces executables we can run. If not, either # the compiler is broken, or we cross compile. { echo "$as_me:$LINENO: checking whether we are cross compiling" >&5 echo $ECHO_N "checking whether we are cross compiling... $ECHO_C" >&6; } { echo "$as_me:$LINENO: result: $cross_compiling" >&5 echo "${ECHO_T}$cross_compiling" >&6; } { echo "$as_me:$LINENO: checking for suffix of executables" >&5 echo $ECHO_N "checking for suffix of executables... $ECHO_C" >&6; } if { (ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_link") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; then # If both `conftest.exe' and `conftest' are `present' (well, observable) # catch `conftest.exe'. For instance with Cygwin, `ls conftest' will # work properly (i.e., refer to `conftest.exe'), while it won't with # `rm'. for ac_file in conftest.exe conftest conftest.*; do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.o | *.obj ) ;; *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` break;; * ) break;; esac done else { { echo "$as_me:$LINENO: error: cannot compute suffix of executables: cannot compile and link See \`config.log' for more details." >&5 echo "$as_me: error: cannot compute suffix of executables: cannot compile and link See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } fi rm -f conftest$ac_cv_exeext { echo "$as_me:$LINENO: result: $ac_cv_exeext" >&5 echo "${ECHO_T}$ac_cv_exeext" >&6; } rm -f conftest.$ac_ext EXEEXT=$ac_cv_exeext ac_exeext=$EXEEXT { echo "$as_me:$LINENO: checking for suffix of object files" >&5 echo $ECHO_N "checking for suffix of object files... $ECHO_C" >&6; } if test "${ac_cv_objext+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.o conftest.obj if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; then for ac_file in conftest.o conftest.obj conftest.*; do test -f "$ac_file" || continue; case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf ) ;; *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` break;; esac done else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { echo "$as_me:$LINENO: error: cannot compute suffix of object files: cannot compile See \`config.log' for more details." >&5 echo "$as_me: error: cannot compute suffix of object files: cannot compile See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } fi rm -f conftest.$ac_cv_objext conftest.$ac_ext fi { echo "$as_me:$LINENO: result: $ac_cv_objext" >&5 echo "${ECHO_T}$ac_cv_objext" >&6; } OBJEXT=$ac_cv_objext ac_objext=$OBJEXT { echo "$as_me:$LINENO: checking whether we are using the GNU C compiler" >&5 echo $ECHO_N "checking whether we are using the GNU C compiler... $ECHO_C" >&6; } if test "${ac_cv_c_compiler_gnu+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_compiler_gnu=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_compiler_gnu=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_cv_c_compiler_gnu=$ac_compiler_gnu fi { echo "$as_me:$LINENO: result: $ac_cv_c_compiler_gnu" >&5 echo "${ECHO_T}$ac_cv_c_compiler_gnu" >&6; } GCC=`test $ac_compiler_gnu = yes && echo yes` ac_test_CFLAGS=${CFLAGS+set} ac_save_CFLAGS=$CFLAGS { echo "$as_me:$LINENO: checking whether $CC accepts -g" >&5 echo $ECHO_N "checking whether $CC accepts -g... $ECHO_C" >&6; } if test "${ac_cv_prog_cc_g+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_save_c_werror_flag=$ac_c_werror_flag ac_c_werror_flag=yes ac_cv_prog_cc_g=no CFLAGS="-g" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_cv_prog_cc_g=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 CFLAGS="" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then : else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_c_werror_flag=$ac_save_c_werror_flag CFLAGS="-g" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_cv_prog_cc_g=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_c_werror_flag=$ac_save_c_werror_flag fi { echo "$as_me:$LINENO: result: $ac_cv_prog_cc_g" >&5 echo "${ECHO_T}$ac_cv_prog_cc_g" >&6; } if test "$ac_test_CFLAGS" = set; then CFLAGS=$ac_save_CFLAGS elif test $ac_cv_prog_cc_g = yes; then if test "$GCC" = yes; then CFLAGS="-g -O2" else CFLAGS="-g" fi else if test "$GCC" = yes; then CFLAGS="-O2" else CFLAGS= fi fi { echo "$as_me:$LINENO: checking for $CC option to accept ISO C89" >&5 echo $ECHO_N "checking for $CC option to accept ISO C89... $ECHO_C" >&6; } if test "${ac_cv_prog_cc_c89+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_cv_prog_cc_c89=no ac_save_CC=$CC cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include #include #include #include /* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ struct buf { int x; }; FILE * (*rcsopen) (struct buf *, struct stat *, int); static char *e (p, i) char **p; int i; { return p[i]; } static char *f (char * (*g) (char **, int), char **p, ...) { char *s; va_list v; va_start (v,p); s = g (p, va_arg (v,int)); va_end (v); return s; } /* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has function prototypes and stuff, but not '\xHH' hex character constants. These don't provoke an error unfortunately, instead are silently treated as 'x'. The following induces an error, until -std is added to get proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an array size at least. It's necessary to write '\x00'==0 to get something that's true only with -std. */ int osf4_cc_array ['\x00' == 0 ? 1 : -1]; /* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters inside strings and character constants. */ #define FOO(x) 'x' int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1]; int test (int i, double x); struct s1 {int (*f) (int a);}; struct s2 {int (*f) (double a);}; int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); int argc; char **argv; int main () { return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; ; return 0; } _ACEOF for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" do CC="$ac_save_CC $ac_arg" rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_cv_prog_cc_c89=$ac_arg else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f core conftest.err conftest.$ac_objext test "x$ac_cv_prog_cc_c89" != "xno" && break done rm -f conftest.$ac_ext CC=$ac_save_CC fi # AC_CACHE_VAL case "x$ac_cv_prog_cc_c89" in x) { echo "$as_me:$LINENO: result: none needed" >&5 echo "${ECHO_T}none needed" >&6; } ;; xno) { echo "$as_me:$LINENO: result: unsupported" >&5 echo "${ECHO_T}unsupported" >&6; } ;; *) CC="$CC $ac_cv_prog_cc_c89" { echo "$as_me:$LINENO: result: $ac_cv_prog_cc_c89" >&5 echo "${ECHO_T}$ac_cv_prog_cc_c89" >&6; } ;; esac ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu if test "$cross_compiling" = yes; then gsl_version_ok=yes else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include #include int main() { #ifdef GSL_VERSION int major, minor; char *gslv = GSL_VERSION; if ((sscanf(gslv, "%d.%d", &major, &minor)) != 2) { exit (1); } exit (major == 1 && minor < 12); #else exit(1); #endif } _ACEOF rm -f conftest$ac_exeext if { (ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_link") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='./conftest$ac_exeext' { (case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_try") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then gsl_version_ok=yes else echo "$as_me: program exited with status $ac_status" >&5 echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ( exit $ac_status ) gsl_version_ok=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext fi if test "${gsl_version_ok}" = no; then { { echo "$as_me:$LINENO: error: Need GSL version >= 1.12" >&5 echo "$as_me: error: Need GSL version >= 1.12" >&2;} { (exit 1); exit 1; }; } else { echo "$as_me:$LINENO: result: yes" >&5 echo "${ECHO_T}yes" >&6; } fi # Now substitute these variables in src/Makevars.in to create src/Makevars ac_config_files="$ac_config_files src/Makevars" cat >confcache <<\_ACEOF # This file is a shell script that caches the results of configure # tests run on this system so they can be shared between configure # scripts and configure runs, see configure's option --config-cache. # It is not useful on other systems. If it contains results you don't # want to keep, you may remove or edit it. # # config.status only pays attention to the cache file if you give it # the --recheck option to rerun configure. # # `ac_cv_env_foo' variables (set or unset) will be overridden when # loading this file, other *unset* `ac_cv_foo' will be assigned the # following values. _ACEOF # The following way of writing the cache mishandles newlines in values, # but we know of no workaround that is simple, portable, and efficient. # So, we kill variables containing newlines. # Ultrix sh set writes to stderr and can't be redirected directly, # and sets the high bit in the cache file unless we assign to the vars. ( for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do eval ac_val=\$$ac_var case $ac_val in #( *${as_nl}*) case $ac_var in #( *_cv_*) { echo "$as_me:$LINENO: WARNING: Cache variable $ac_var contains a newline." >&5 echo "$as_me: WARNING: Cache variable $ac_var contains a newline." >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( *) $as_unset $ac_var ;; esac ;; esac done (set) 2>&1 | case $as_nl`(ac_space=' '; set) 2>&1` in #( *${as_nl}ac_space=\ *) # `set' does not quote correctly, so add quotes (double-quote # substitution turns \\\\ into \\, and sed turns \\ into \). sed -n \ "s/'/'\\\\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" ;; #( *) # `set' quotes correctly as required by POSIX, so do not add quotes. sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" ;; esac | sort ) | sed ' /^ac_cv_env_/b end t clear :clear s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/ t end s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ :end' >>confcache if diff "$cache_file" confcache >/dev/null 2>&1; then :; else if test -w "$cache_file"; then test "x$cache_file" != "x/dev/null" && { echo "$as_me:$LINENO: updating cache $cache_file" >&5 echo "$as_me: updating cache $cache_file" >&6;} cat confcache >$cache_file else { echo "$as_me:$LINENO: not updating unwritable cache $cache_file" >&5 echo "$as_me: not updating unwritable cache $cache_file" >&6;} fi fi rm -f confcache test "x$prefix" = xNONE && prefix=$ac_default_prefix # Let make expand exec_prefix. test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' # Transform confdefs.h into DEFS. # Protect against shell expansion while executing Makefile rules. # Protect against Makefile macro expansion. # # If the first sed substitution is executed (which looks for macros that # take arguments), then branch to the quote section. Otherwise, # look for a macro that doesn't take arguments. ac_script=' t clear :clear s/^[ ]*#[ ]*define[ ][ ]*\([^ (][^ (]*([^)]*)\)[ ]*\(.*\)/-D\1=\2/g t quote s/^[ ]*#[ ]*define[ ][ ]*\([^ ][^ ]*\)[ ]*\(.*\)/-D\1=\2/g t quote b any :quote s/[ `~#$^&*(){}\\|;'\''"<>?]/\\&/g s/\[/\\&/g s/\]/\\&/g s/\$/$$/g H :any ${ g s/^\n// s/\n/ /g p } ' DEFS=`sed -n "$ac_script" confdefs.h` ac_libobjs= ac_ltlibobjs= for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue # 1. Remove the extension, and $U if already installed. ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' ac_i=`echo "$ac_i" | sed "$ac_script"` # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR # will be set to the directory where LIBOBJS objects are built. ac_libobjs="$ac_libobjs \${LIBOBJDIR}$ac_i\$U.$ac_objext" ac_ltlibobjs="$ac_ltlibobjs \${LIBOBJDIR}$ac_i"'$U.lo' done LIBOBJS=$ac_libobjs LTLIBOBJS=$ac_ltlibobjs : ${CONFIG_STATUS=./config.status} ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files $CONFIG_STATUS" { echo "$as_me:$LINENO: creating $CONFIG_STATUS" >&5 echo "$as_me: creating $CONFIG_STATUS" >&6;} cat >$CONFIG_STATUS <<_ACEOF #! $SHELL # Generated by $as_me. # Run this file to recreate the current configuration. # Compiler output produced by configure, useful for debugging # configure, is in config.log if it exists. debug=false ac_cs_recheck=false ac_cs_silent=false SHELL=\${CONFIG_SHELL-$SHELL} _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF ## --------------------- ## ## M4sh Initialization. ## ## --------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in *posix*) set -o posix ;; esac fi # PATH needs CR # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then echo "#! /bin/sh" >conf$$.sh echo "exit 0" >>conf$$.sh chmod +x conf$$.sh if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then PATH_SEPARATOR=';' else PATH_SEPARATOR=: fi rm -f conf$$.sh fi # Support unset when possible. if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then as_unset=unset else as_unset=false fi # IFS # We need space, tab and new line, in precisely that order. Quoting is # there to prevent editors from complaining about space-tab. # (If _AS_PATH_WALK were called with IFS unset, it would disable word # splitting by setting IFS to empty value.) as_nl=' ' IFS=" "" $as_nl" # Find who we are. Look in the path if we contain no directory separator. case $0 in *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done IFS=$as_save_IFS ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 { (exit 1); exit 1; } fi # Work around bugs in pre-3.0 UWIN ksh. for as_var in ENV MAIL MAILPATH do ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var done PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. for as_var in \ LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ LC_TELEPHONE LC_TIME do if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then eval $as_var=C; export $as_var else ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var fi done # Required to use basename. if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi # Name of the executable. as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # CDPATH. $as_unset CDPATH as_lineno_1=$LINENO as_lineno_2=$LINENO test "x$as_lineno_1" != "x$as_lineno_2" && test "x`expr $as_lineno_1 + 1`" = "x$as_lineno_2" || { # Create $as_me.lineno as a copy of $as_myself, but with $LINENO # uniformly replaced by the line number. The first 'sed' inserts a # line-number line after each line using $LINENO; the second 'sed' # does the real work. The second script uses 'N' to pair each # line-number line with the line containing $LINENO, and appends # trailing '-' during substitution so that $LINENO is not a special # case at line end. # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the # scripts with optimization help from Paolo Bonzini. Blame Lee # E. McMahon (1931-1989) for sed's syntax. :-) sed -n ' p /[$]LINENO/= ' <$as_myself | sed ' s/[$]LINENO.*/&-/ t lineno b :lineno N :loop s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ t loop s/-\n.*// ' >$as_me.lineno && chmod +x "$as_me.lineno" || { echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2 { (exit 1); exit 1; }; } # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the # original and so on. Autoconf is especially sensitive to this). . "./$as_me.lineno" # Exit status is that of the last command. exit } if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in -n*) case `echo 'x\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. *) ECHO_C='\c';; esac;; *) ECHO_N='-n';; esac if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir fi echo >conf$$.file if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. # In both cases, we have to default to `cp -p'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -p' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -p' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null if mkdir -p . 2>/dev/null; then as_mkdir_p=: else test -d ./-p && rmdir ./-p as_mkdir_p=false fi if test -x / >/dev/null 2>&1; then as_test_x='test -x' else if ls -dL / >/dev/null 2>&1; then as_ls_L_option=L else as_ls_L_option= fi as_test_x=' eval sh -c '\'' if test -d "$1"; then test -d "$1/."; else case $1 in -*)set "./$1";; esac; case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in ???[sx]*):;;*)false;;esac;fi '\'' sh ' fi as_executable_p=$as_test_x # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" exec 6>&1 # Save the log message, to keep $[0] and so on meaningful, and to # report actual input values of CONFIG_FILES etc. instead of their # values after options handling. ac_log=" This file was extended by $as_me, which was generated by GNU Autoconf 2.61. Invocation command line was CONFIG_FILES = $CONFIG_FILES CONFIG_HEADERS = $CONFIG_HEADERS CONFIG_LINKS = $CONFIG_LINKS CONFIG_COMMANDS = $CONFIG_COMMANDS $ $0 $@ on `(hostname || uname -n) 2>/dev/null | sed 1q` " _ACEOF cat >>$CONFIG_STATUS <<_ACEOF # Files that config.status was made for. config_files="$ac_config_files" _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF ac_cs_usage="\ \`$as_me' instantiates files from templates according to the current configuration. Usage: $0 [OPTIONS] [FILE]... -h, --help print this help, then exit -V, --version print version number and configuration settings, then exit -q, --quiet do not print progress messages -d, --debug don't remove temporary files --recheck update $as_me by reconfiguring in the same conditions --file=FILE[:TEMPLATE] instantiate the configuration file FILE Configuration files: $config_files Report bugs to ." _ACEOF cat >>$CONFIG_STATUS <<_ACEOF ac_cs_version="\\ config.status configured by $0, generated by GNU Autoconf 2.61, with options \\"`echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`\\" Copyright (C) 2006 Free Software Foundation, Inc. This config.status script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it." ac_pwd='$ac_pwd' srcdir='$srcdir' _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF # If no file are specified by the user, then we need to provide default # value. By we need to know if files were specified by the user. ac_need_defaults=: while test $# != 0 do case $1 in --*=*) ac_option=`expr "X$1" : 'X\([^=]*\)='` ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` ac_shift=: ;; *) ac_option=$1 ac_optarg=$2 ac_shift=shift ;; esac case $ac_option in # Handling of the options. -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) ac_cs_recheck=: ;; --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) echo "$ac_cs_version"; exit ;; --debug | --debu | --deb | --de | --d | -d ) debug=: ;; --file | --fil | --fi | --f ) $ac_shift CONFIG_FILES="$CONFIG_FILES $ac_optarg" ac_need_defaults=false;; --he | --h | --help | --hel | -h ) echo "$ac_cs_usage"; exit ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil | --si | --s) ac_cs_silent=: ;; # This is an error. -*) { echo "$as_me: error: unrecognized option: $1 Try \`$0 --help' for more information." >&2 { (exit 1); exit 1; }; } ;; *) ac_config_targets="$ac_config_targets $1" ac_need_defaults=false ;; esac shift done ac_configure_extra_args= if $ac_cs_silent; then exec 6>/dev/null ac_configure_extra_args="$ac_configure_extra_args --silent" fi _ACEOF cat >>$CONFIG_STATUS <<_ACEOF if \$ac_cs_recheck; then echo "running CONFIG_SHELL=$SHELL $SHELL $0 "$ac_configure_args \$ac_configure_extra_args " --no-create --no-recursion" >&6 CONFIG_SHELL=$SHELL export CONFIG_SHELL exec $SHELL "$0"$ac_configure_args \$ac_configure_extra_args --no-create --no-recursion fi _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF exec 5>>config.log { echo sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX ## Running $as_me. ## _ASBOX echo "$ac_log" } >&5 _ACEOF cat >>$CONFIG_STATUS <<_ACEOF _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF # Handling of arguments. for ac_config_target in $ac_config_targets do case $ac_config_target in "src/Makevars") CONFIG_FILES="$CONFIG_FILES src/Makevars" ;; *) { { echo "$as_me:$LINENO: error: invalid argument: $ac_config_target" >&5 echo "$as_me: error: invalid argument: $ac_config_target" >&2;} { (exit 1); exit 1; }; };; esac done # If the user did not use the arguments to specify the items to instantiate, # then the envvar interface is used. Set only those that are not. # We use the long form for the default assignment because of an extremely # bizarre bug on SunOS 4.1.3. if $ac_need_defaults; then test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files fi # Have a temporary directory for convenience. Make it in the build tree # simply because there is no reason against having it here, and in addition, # creating and moving files from /tmp can sometimes cause problems. # Hook for its removal unless debugging. # Note that there is a small window in which the directory will not be cleaned: # after its creation but before its name has been assigned to `$tmp'. $debug || { tmp= trap 'exit_status=$? { test -z "$tmp" || test ! -d "$tmp" || rm -fr "$tmp"; } && exit $exit_status ' 0 trap '{ (exit 1); exit 1; }' 1 2 13 15 } # Create a (secure) tmp directory for tmp files. { tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" } || { tmp=./conf$$-$RANDOM (umask 077 && mkdir "$tmp") } || { echo "$me: cannot create a temporary directory in ." >&2 { (exit 1); exit 1; } } # # Set up the sed scripts for CONFIG_FILES section. # # No need to generate the scripts if there are no CONFIG_FILES. # This happens for instance when ./config.status config.h if test -n "$CONFIG_FILES"; then _ACEOF ac_delim='%!_!# ' for ac_last_try in false false false false false :; do cat >conf$$subs.sed <<_ACEOF SHELL!$SHELL$ac_delim PATH_SEPARATOR!$PATH_SEPARATOR$ac_delim PACKAGE_NAME!$PACKAGE_NAME$ac_delim PACKAGE_TARNAME!$PACKAGE_TARNAME$ac_delim PACKAGE_VERSION!$PACKAGE_VERSION$ac_delim PACKAGE_STRING!$PACKAGE_STRING$ac_delim PACKAGE_BUGREPORT!$PACKAGE_BUGREPORT$ac_delim exec_prefix!$exec_prefix$ac_delim prefix!$prefix$ac_delim program_transform_name!$program_transform_name$ac_delim bindir!$bindir$ac_delim sbindir!$sbindir$ac_delim libexecdir!$libexecdir$ac_delim datarootdir!$datarootdir$ac_delim datadir!$datadir$ac_delim sysconfdir!$sysconfdir$ac_delim sharedstatedir!$sharedstatedir$ac_delim localstatedir!$localstatedir$ac_delim includedir!$includedir$ac_delim oldincludedir!$oldincludedir$ac_delim docdir!$docdir$ac_delim infodir!$infodir$ac_delim htmldir!$htmldir$ac_delim dvidir!$dvidir$ac_delim pdfdir!$pdfdir$ac_delim psdir!$psdir$ac_delim libdir!$libdir$ac_delim localedir!$localedir$ac_delim mandir!$mandir$ac_delim DEFS!$DEFS$ac_delim ECHO_C!$ECHO_C$ac_delim ECHO_N!$ECHO_N$ac_delim ECHO_T!$ECHO_T$ac_delim LIBS!$LIBS$ac_delim build_alias!$build_alias$ac_delim host_alias!$host_alias$ac_delim target_alias!$target_alias$ac_delim GSL_CONFIG!$GSL_CONFIG$ac_delim CC!$CC$ac_delim CFLAGS!$CFLAGS$ac_delim LDFLAGS!$LDFLAGS$ac_delim CPPFLAGS!$CPPFLAGS$ac_delim ac_ct_CC!$ac_ct_CC$ac_delim EXEEXT!$EXEEXT$ac_delim OBJEXT!$OBJEXT$ac_delim GSL_CFLAGS!$GSL_CFLAGS$ac_delim GSL_LIBS!$GSL_LIBS$ac_delim LIBOBJS!$LIBOBJS$ac_delim LTLIBOBJS!$LTLIBOBJS$ac_delim _ACEOF if test `sed -n "s/.*$ac_delim\$/X/p" conf$$subs.sed | grep -c X` = 49; then break elif $ac_last_try; then { { echo "$as_me:$LINENO: error: could not make $CONFIG_STATUS" >&5 echo "$as_me: error: could not make $CONFIG_STATUS" >&2;} { (exit 1); exit 1; }; } else ac_delim="$ac_delim!$ac_delim _$ac_delim!! " fi done ac_eof=`sed -n '/^CEOF[0-9]*$/s/CEOF/0/p' conf$$subs.sed` if test -n "$ac_eof"; then ac_eof=`echo "$ac_eof" | sort -nru | sed 1q` ac_eof=`expr $ac_eof + 1` fi cat >>$CONFIG_STATUS <<_ACEOF cat >"\$tmp/subs-1.sed" <<\CEOF$ac_eof /@[a-zA-Z_][a-zA-Z_0-9]*@/!b end _ACEOF sed ' s/[,\\&]/\\&/g; s/@/@|#_!!_#|/g s/^/s,@/; s/!/@,|#_!!_#|/ :n t n s/'"$ac_delim"'$/,g/; t s/$/\\/; p N; s/^.*\n//; s/[,\\&]/\\&/g; s/@/@|#_!!_#|/g; b n ' >>$CONFIG_STATUS >$CONFIG_STATUS <<_ACEOF :end s/|#_!!_#|//g CEOF$ac_eof _ACEOF # VPATH may cause trouble with some makes, so we remove $(srcdir), # ${srcdir} and @srcdir@ from VPATH if srcdir is ".", strip leading and # trailing colons and then remove the whole line if VPATH becomes empty # (actually we leave an empty line to preserve line numbers). if test "x$srcdir" = x.; then ac_vpsub='/^[ ]*VPATH[ ]*=/{ s/:*\$(srcdir):*/:/ s/:*\${srcdir}:*/:/ s/:*@srcdir@:*/:/ s/^\([^=]*=[ ]*\):*/\1/ s/:*$// s/^[^=]*=[ ]*$// }' fi cat >>$CONFIG_STATUS <<\_ACEOF fi # test -n "$CONFIG_FILES" for ac_tag in :F $CONFIG_FILES do case $ac_tag in :[FHLC]) ac_mode=$ac_tag; continue;; esac case $ac_mode$ac_tag in :[FHL]*:*);; :L* | :C*:*) { { echo "$as_me:$LINENO: error: Invalid tag $ac_tag." >&5 echo "$as_me: error: Invalid tag $ac_tag." >&2;} { (exit 1); exit 1; }; };; :[FH]-) ac_tag=-:-;; :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; esac ac_save_IFS=$IFS IFS=: set x $ac_tag IFS=$ac_save_IFS shift ac_file=$1 shift case $ac_mode in :L) ac_source=$1;; :[FH]) ac_file_inputs= for ac_f do case $ac_f in -) ac_f="$tmp/stdin";; *) # Look for the file first in the build tree, then in the source tree # (if the path is not absolute). The absolute path cannot be DOS-style, # because $ac_f cannot contain `:'. test -f "$ac_f" || case $ac_f in [\\/$]*) false;; *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; esac || { { echo "$as_me:$LINENO: error: cannot find input file: $ac_f" >&5 echo "$as_me: error: cannot find input file: $ac_f" >&2;} { (exit 1); exit 1; }; };; esac ac_file_inputs="$ac_file_inputs $ac_f" done # Let's still pretend it is `configure' which instantiates (i.e., don't # use $as_me), people would be surprised to read: # /* config.h. Generated by config.status. */ configure_input="Generated from "`IFS=: echo $* | sed 's|^[^:]*/||;s|:[^:]*/|, |g'`" by configure." if test x"$ac_file" != x-; then configure_input="$ac_file. $configure_input" { echo "$as_me:$LINENO: creating $ac_file" >&5 echo "$as_me: creating $ac_file" >&6;} fi case $ac_tag in *:-:* | *:-) cat >"$tmp/stdin";; esac ;; esac ac_dir=`$as_dirname -- "$ac_file" || $as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$ac_file" : 'X\(//\)[^/]' \| \ X"$ac_file" : 'X\(//\)$' \| \ X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || echo X"$ac_file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` { as_dir="$ac_dir" case $as_dir in #( -*) as_dir=./$as_dir;; esac test -d "$as_dir" || { $as_mkdir_p && mkdir -p "$as_dir"; } || { as_dirs= while :; do case $as_dir in #( *\'*) as_qdir=`echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" as_dir=`$as_dirname -- "$as_dir" || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` test -d "$as_dir" && break done test -z "$as_dirs" || eval "mkdir $as_dirs" } || test -d "$as_dir" || { { echo "$as_me:$LINENO: error: cannot create directory $as_dir" >&5 echo "$as_me: error: cannot create directory $as_dir" >&2;} { (exit 1); exit 1; }; }; } ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,/..,g;s,/,,'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; esac ;; esac ac_abs_top_builddir=$ac_pwd ac_abs_builddir=$ac_pwd$ac_dir_suffix # for backward compatibility: ac_top_builddir=$ac_top_build_prefix case $srcdir in .) # We are building in place. ac_srcdir=. ac_top_srcdir=$ac_top_builddir_sub ac_abs_top_srcdir=$ac_pwd ;; [\\/]* | ?:[\\/]* ) # Absolute name. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ac_abs_top_srcdir=$srcdir ;; *) # Relative name. ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_build_prefix$srcdir ac_abs_top_srcdir=$ac_pwd/$srcdir ;; esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix case $ac_mode in :F) # # CONFIG_FILE # _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF # If the template does not know about datarootdir, expand it. # FIXME: This hack should be removed a few years after 2.60. ac_datarootdir_hack=; ac_datarootdir_seen= case `sed -n '/datarootdir/ { p q } /@datadir@/p /@docdir@/p /@infodir@/p /@localedir@/p /@mandir@/p ' $ac_file_inputs` in *datarootdir*) ac_datarootdir_seen=yes;; *@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) { echo "$as_me:$LINENO: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} _ACEOF cat >>$CONFIG_STATUS <<_ACEOF ac_datarootdir_hack=' s&@datadir@&$datadir&g s&@docdir@&$docdir&g s&@infodir@&$infodir&g s&@localedir@&$localedir&g s&@mandir@&$mandir&g s&\\\${datarootdir}&$datarootdir&g' ;; esac _ACEOF # Neutralize VPATH when `$srcdir' = `.'. # Shell code in configure.ac might set extrasub. # FIXME: do we really want to maintain this feature? cat >>$CONFIG_STATUS <<_ACEOF sed "$ac_vpsub $extrasub _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF :t /@[a-zA-Z_][a-zA-Z_0-9]*@/!b s&@configure_input@&$configure_input&;t t s&@top_builddir@&$ac_top_builddir_sub&;t t s&@srcdir@&$ac_srcdir&;t t s&@abs_srcdir@&$ac_abs_srcdir&;t t s&@top_srcdir@&$ac_top_srcdir&;t t s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t s&@builddir@&$ac_builddir&;t t s&@abs_builddir@&$ac_abs_builddir&;t t s&@abs_top_builddir@&$ac_abs_top_builddir&;t t $ac_datarootdir_hack " $ac_file_inputs | sed -f "$tmp/subs-1.sed" >$tmp/out test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && { ac_out=`sed -n '/\${datarootdir}/p' "$tmp/out"`; test -n "$ac_out"; } && { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' "$tmp/out"`; test -z "$ac_out"; } && { echo "$as_me:$LINENO: WARNING: $ac_file contains a reference to the variable \`datarootdir' which seems to be undefined. Please make sure it is defined." >&5 echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' which seems to be undefined. Please make sure it is defined." >&2;} rm -f "$tmp/stdin" case $ac_file in -) cat "$tmp/out"; rm -f "$tmp/out";; *) rm -f "$ac_file"; mv "$tmp/out" $ac_file;; esac ;; esac done # for ac_tag { (exit 0); exit 0; } _ACEOF chmod +x $CONFIG_STATUS ac_clean_files=$ac_clean_files_save # configure is writing to config.log, and then calls config.status. # config.status does its own redirection, appending to config.log. # Unfortunately, on DOS this fails, as config.log is still kept open # by configure, so config.status won't be able to write to it; its # output is simply discarded. So we exec the FD to /dev/null, # effectively closing config.log, so it can be properly (re)opened and # appended to by config.status. When coming back to configure, we # need to make the FD available again. if test "$no_create" != yes; then ac_cs_success=: ac_config_status_args= test "$silent" = yes && ac_config_status_args="$ac_config_status_args --quiet" exec 5>/dev/null $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false exec 5>>config.log # Use ||, not &&, to avoid exiting from the if with $? = 1, which # would make configure fail if this is the last instruction. $ac_cs_success || { (exit 1); exit 1; } fi gsl/man/0000755000176000001440000000000012251674041011644 5ustar ripleyusersgsl/man/Error.Rd0000644000176000001440000000246412251674014013232 0ustar ripleyusers\name{Error} \alias{error} \alias{Error} \alias{Error function} \alias{erf} \alias{erfc} \alias{log_erfc} \alias{log_erf_Z} \alias{erf_Q} \alias{hazard} \title{Error functions} \description{ Error functions as per the Gnu Scientific Library, reference manual section 7.15 and AMS-55, chapter 7. Thes functions are declared in header file \code{gsl_sf_error.h} } \usage{ erf(x, mode=0, give=FALSE, strict=TRUE) erfc(x, mode=0, give=FALSE, strict=TRUE) log_erfc(x, mode=0, give=FALSE, strict=TRUE) log_erf_Z(x, mode=0, give=FALSE, strict=TRUE) erf_Q(x, mode=0, give=FALSE, strict=TRUE) hazard(x, mode=0, give=FALSE, strict=TRUE) } \arguments{ \item{x}{input: real values} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number} \item{mode}{input: mode. For \code{GSL_PREC_DOUBLE} , \code{GSL_PREC_SINGLE}, \code{GSL_PREC_APPROX} use \code{0,1,2} respectively} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error} } \details{ The zero functions return a status of \code{GSL_EDOM} and a value of \code{NA} for \eqn{n\leq 0}{n\leq 0} } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ erf(0.745) # Example 1, page 304 } \keyword{array} gsl/man/Pow_int.Rd0000644000176000001440000000137212251674014013555 0ustar ripleyusers\name{Powint} \alias{pow_int} \alias{Pow_int} \alias{powint} \title{Power functions} \description{ Power functions as per the Gnu Scientific Library reference manual section 7.27. These functions are declared in the header file \code{gsl_sf_pow_int.h} } \usage{ pow_int(x, n, give=FALSE, strict=TRUE) } \arguments{ \item{x}{input: real values} \item{n}{input: integer values} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error} } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ pow_int(pi/2,1:10) } \keyword{array} gsl/man/Misc.Rd0000644000176000001440000000507212251674014013032 0ustar ripleyusers\name{Misc} \alias{Misc} \alias{misc} \alias{process.args} \alias{strictify} \title{Argument processing and general info} \description{ Various widely used functions in the package } \usage{ process.args(...) strictify(val,status) } \arguments{ \item{...}{Argument list to be coerced to the same length} \item{val}{Value component of \code{&result}} \item{status}{status integer} } \details{ Function \code{process.args()} is an internal function used to massage the arguments into a form suitable for passing to \code{.C()}. For example, in function \code{hyperg_0F1(c,x)}, one wants each of \code{hyperg_0F1(0.1, c(0.3,0.4))} and \code{hyperg_0F1(c(0.1,0.2), 0.3)} and \code{hyperg_0F1(c(0.1,0.2),c(0.3,0.4))} to behave sensibly. Function \code{process.args()} is used widely in the package, taking an arbitrary number of arguments and returning a list whose elements are vectors of the same length. Most of the special functions use \code{process.args()} to ensure that the returned value takes the attributes of the input argument with most elements where possible. Function \code{strictify()} uses the \code{status} value returned by the \dQuote{error} form of the \acronym{GSL} special functions to make values returned with a nonzero \code{error} a \code{NaN}. In most of the special functions, \code{strictify()} is called if argument \code{strict} takes its default value of \code{TRUE}. Setting it to \code{FALSE} sometimes returns a numerical value as per the \acronym{GSL} reference manual. In most of the special functions, if argument \code{give} takes its default value of \code{FALSE}, only a numerical value is returned. If \code{TRUE}, error information and the status (see preceding paragraph) is also returned. Following tips found on R-devel: \enumerate{ \item Download and extract source code of R-package \pkg{gsl} \item Use \code{gsl-config --libs} to get the path to \acronym{GSL}'s lib directory (\code{-L}), use \code{gsl-config --cflags} to get the path to \code{GSL}'s include directory (\code{-I}) \item Change \code{Makevars} in \code{gsl/src}: \itemize{ \item Add \code{-L} to \code{PKG_LIBS} \item Add (new) line: \code{PKG_CPPFLAGS=-I} } \item Install \code{gsl} via \code{LDFLAGS=-L; export LDFLAGS} \code{CPPFLAGS=-I;export CPPFLAGS} \code{R CMD INSTALL gsl} } } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \keyword{array} gsl/man/Expint.Rd0000644000176000001440000000371212251674014013405 0ustar ripleyusers\name{Expint} \alias{Expint} \alias{expint} \alias{expint_E1} \alias{expint_E2} \alias{expint_En} \alias{expint_Ei} \alias{Shi} \alias{Chi} \alias{expint_3} \alias{Si} \alias{Ci} \alias{atanint} \title{exponential functions} \description{ Expint functions as per the Gnu Scientific Library, reference manual section 7.17 and AMS-55, chapter 5. These functions are declared in header file \code{gsl_sf_expint.h}. } \usage{ expint_E1(x, give=FALSE, strict=TRUE) expint_E2(x, give=FALSE, strict=TRUE) expint_En(n, x, give=FALSE, strict=TRUE) expint_Ei(x, give=FALSE, strict=TRUE) Shi(x, give=FALSE, strict=TRUE) Chi(x, give=FALSE, strict=TRUE) expint_3(x, give=FALSE, strict=TRUE) Si(x, give=FALSE, strict=TRUE) Ci(x, give=FALSE, strict=TRUE) atanint(x, give=FALSE, strict=TRUE) } \arguments{ \item{x}{input: real values} \item{n}{input: integer values} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error} } \note{ Function \code{expint_En()} requires \acronym{GSL} version 1.8 or later. } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ x <- seq(from=0.5, to=1, by=0.01) cbind(x,Si(x),Ci(x),expint_Ei(x),expint_E1(x)) #table 5.1 of AS, p239 x <- seq(from=0, to=12, len=100) plot(x,Ci(x),col="black",type="l",xaxt="n",yaxt="n",bty="n", xlab="",ylab="",main="Figure 5.6, p232", xlim=c(0,12),ylim=c(-1,2.0)) lines(x,Si(x)) axis(1,pos=0) axis(2,pos=0) abline(h=pi/2,lty=2) # Table 5.4, page 245: xvec <- seq(from=0,by=0.01,len=20) nvec <- c(2,3,4,10,20) x <- kronecker(xvec,t(rep(1,5))) n <- kronecker(t(nvec),rep(1,20)) ans <- cbind(x=xvec,expint_En(n,x)) rownames(ans) <- rep(" ",length(xvec)) colnames(ans) <- c("x",paste("n=",nvec,sep="")) class(ans) <- "I do not understand the first column" ans } \keyword{array} gsl/man/Debye.Rd0000644000176000001440000000167012251674014013167 0ustar ripleyusers\name{Debye} \alias{Debye} \alias{debye} \alias{debye_1} \alias{debye_2} \alias{debye_3} \alias{debye_4} \title{Debye functions} \description{ Debye functions as per the Gnu Scientific Library, section 7.10 of the reference manual. These functions are declared in header file \code{gsl_sf_debye.h} } \usage{ debye_1(x, give=FALSE, strict=TRUE) debye_2(x, give=FALSE, strict=TRUE) debye_3(x, give=FALSE, strict=TRUE) debye_4(x, give=FALSE, strict=TRUE) } \arguments{ \item{x}{input: real values} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error} } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ x <- seq(from=0,to=10,by=0.1) cbind(x,debye_1(x),debye_2(x),debye_3(x),debye_4(x)) #table 27.1 } \keyword{array} gsl/man/Poly.Rd0000644000176000001440000000263012251674014013057 0ustar ripleyusers\name{Poly} \alias{Poly} \alias{poly} \alias{gsl_poly} \title{Polynomials} \description{ Polynomial functions as per the Gnu Scientific Library, reference manual section 6.1. These functions are defined in header file \code{gsl_poly.h} } \usage{ gsl_poly(c_gsl,x) } \arguments{ \item{c_gsl}{Coefficients of the poynomial (\code{c} in the function definition and the \acronym{GSL} ref manual) starting at the constant term and ending in the highest power; see details section. This argument is called \dQuote{\code{c_gsl}} (and not \dQuote{\code{c}}) to avoid confusion with \R function \code{c()}} \item{x}{input: real values} } \details{ One must be careful to avoid off-by-one errors. In C idiom, the function evaluates the polynomial \deqn{c[0]+c[1]x+c[2]x^2+\ldots+c[\mathrm{len}-1]x^{\mathrm{len}-1}}{c[0]+c[1]+...+c[len-1]x^(len-1)} where len is the second argument of \acronym{GSL} function \code{gsl_poly_eval()}. The \R idiom would be \deqn{c[1]+c[2]x+c[3]x^2+\ldots+c[\mathrm{len}]x^{\mathrm{len}-1}.}{c[1]+c[2]+...+c[len]x^(len-1).} This section is work-in-progress and more will be added when I have the time/need for the other functions here. } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ a <- matrix(1:4,2,2) rownames(a) <- letters[1:2] (jj <- gsl_poly(1:3,a)) jj-(1 + 2*a + 3*a^2) #should be small } \keyword{array} gsl/man/Qrng.Rd0000644000176000001440000000407412251674014013047 0ustar ripleyusers\name{Qrng} \alias{Qrng} \alias{qrng} \alias{qrng_alloc} \alias{qrng_clone} \alias{qrng_init} \alias{qrng_name} \alias{qrng_size} \alias{qrng_get} \title{Quasi-random sequences} \description{ Quasi-random sequences as per the Gnu Scientific Library, reference manual section 18. These functions are declared in header file \code{gsl_qrng.h} } \usage{ qrng_alloc(type = c("niederreiter_2", "sobol"), dim) qrng_clone(q) qrng_init(q) qrng_name(q) qrng_size(q) qrng_get(q, n = 1) } \arguments{ \item{type}{Type of sequence} \item{dim}{Dimension of sequence} \item{q}{Generator from \code{qrng_alloc} or \code{qrng_clone}} \item{n}{How many vectors to generate} } \details{ These are wrappers for the quasi-random sequence functions from the \acronym{GSL} \url{http://www.gnu.org/software/gsl} with arguments corresponding to those from the library, with a few exceptions. In particular: I have used \code{dim} where the \acronym{GSL} uses just \code{d}; I have added the \code{n} argument to the \code{qrng_get} function, so that a single call can generate \code{n} vectors; I have not provided \R functions corresponding to \code{qrng_free} (because \R will automatically free the generator when it is garbage collected) or \code{qrng_state} or \code{qrng_memcpy} (because these don't make sense within \R.) } \value{ \code{qrng_alloc}, \code{qrng_clone} and \code{qrng_init} return an external pointer to the C structure representing the generator. The internals of this structure are not accessible from within \R. \code{qrng_name} returns a character vector giving the name of the generator. \code{qrng_size} returns an integer value giving the internal memory usage of the generator. \code{qrng_get} returns a matrix with \code{n} rows and \code{dim} columns. Each row is a vector in the quasi-random sequence. } \references{ \url{http://www.gnu.org/software/gsl} } \author{ Duncan Murdoch } \examples{ q <- qrng_alloc(dim = 2) qrng_name(q) qrng_get(q, 10) } \keyword{ datagen } \keyword{ distribution } gsl/man/Synchrotron.Rd0000644000176000001440000000145612251674014014471 0ustar ripleyusers\name{Synchrotron} \alias{Synchrotron} \alias{synchrotron} \alias{synchrotron_1} \alias{synchrotron_2} \title{Synchrotron functions} \description{ Synchrotron functions as per the Gnu Scientific Library, reference section 7.29. These functions are declared in header file \code{gsl_sf_synchrotron.h} } \usage{ synchrotron_1(x, give=FALSE, strict=TRUE) synchrotron_2(x, give=FALSE, strict=TRUE) } \arguments{ \item{x}{input: real values} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error} } \author{Robin K. S. Hankin} \examples{ x <- seq(from=0,to=2,by=0.01) synchrotron_1(x) synchrotron_2(x) } \keyword{array} gsl/man/Fermi-Dirac.Rd0000644000176000001440000000257112251674014014222 0ustar ripleyusers\name{Fermi-Dirac} \alias{Fermi_Dirac} \alias{Fermi} \alias{fermi_dirac} \alias{fermi} \alias{fermi_dirac_m1} \alias{fermi_dirac_0} \alias{fermi_dirac_1} \alias{fermi_dirac_2} \alias{fermi_dirac_int} \alias{fermi_dirac_mhalf} \alias{fermi_dirac_half} \alias{fermi_dirac_3half} \alias{fermi_dirac_inc_0} \title{Fermi-Dirac functions} \description{ Fermi-Dirac functions as per the Gnu Scientific Library, reference manual section 7.18. These functions are declared in header file \code{gsl_sf_fermi_dirac.h} } \usage{ fermi_dirac_m1(x, give=FALSE, strict=TRUE) fermi_dirac_0(x, give=FALSE, strict=TRUE) fermi_dirac_1(x, give=FALSE, strict=TRUE) fermi_dirac_2(x, give=FALSE, strict=TRUE) fermi_dirac_int(j, x, give=FALSE, strict=TRUE) fermi_dirac_mhalf(x, give=FALSE, strict=TRUE) fermi_dirac_half(x, give=FALSE, strict=TRUE) fermi_dirac_3half(x, give=FALSE, strict=TRUE) fermi_dirac_inc_0(x, b, give=FALSE, strict=TRUE) } \arguments{ \item{x,j,b}{input: real values} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error} } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ x <- seq(from=0,to=2,by=0.01) fermi_dirac_m1(x) #table 7.5 of Ab and St } \keyword{array} gsl/man/Lambert.Rd0000644000176000001440000000154612251674014013527 0ustar ripleyusers\name{Lambert} \alias{Lambert} \alias{lambert} \alias{lambert_W0} \alias{lambert_Wm1} \alias{Lambert_W0} \alias{Lambert_Wm1} \title{Lambert's W function} \description{ Lambert's W function as per the Gnu Scientific Library reference manual section 7.23. These functions are declared in header file \code{gsl_sf_lambert.h} } \usage{ lambert_W0(x, give=FALSE, strict=TRUE) lambert_Wm1(x, give=FALSE,strict=TRUE) } \arguments{ \item{x}{input: real values} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error} } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ a <- runif(6) L <- lambert_W0(a) print(L*exp(L) - a) } \keyword{array} gsl/man/Zeta.Rd0000644000176000001440000000224012251674014013034 0ustar ripleyusers\name{Zeta} \alias{Zeta} \alias{zeta_int} \alias{zeta} \alias{zetam1_int} \alias{zetam1} \alias{hzeta} \alias{eta_int} \alias{eta} \title{Zeta functions} \description{ Zeta functions as per the Gnu Scientific Library 7.31 and AMS-55, section 23.2. These functions are declared in header file \code{gsl_sf_zeta.h} } \usage{ zeta_int(n, give=FALSE, strict=TRUE) zeta(s, give=FALSE, strict=TRUE) zetam1_int(n, give=FALSE, strict=TRUE) zetam1(s, give=FALSE, strict=TRUE) hzeta(s, q, give=FALSE, strict=TRUE) eta_int(n, give=FALSE, strict=TRUE) eta(s, give=FALSE, strict=TRUE) } \arguments{ \item{n}{input: integer values} \item{s,q}{input: real values} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number.} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error.} } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ n <- 1:10 cbind(n,zeta(n),eta(n)) #table 23.3, p 811 zeta_int(1:5) zeta(c(pi,pi*2)) zetam1_int(1:5) zetam1(c(pi,pi*2)) hzeta(1.1,1.2) eta_int(1:5) eta(c(pi,pi*2)) } \keyword{array} gsl/man/Log.Rd0000644000176000001440000000300712251674014012654 0ustar ripleyusers\name{Log} \alias{Log} \alias{log} \alias{gsl_sf_log} \alias{log_abs} \alias{complex_log} \alias{log_1plusx} \alias{log_1plusx_mx} \title{Log functions} \description{ Log functions as per the Gnu Scientific Library, reference manual section 7.25 and AMS-55, chapter 4. These functions are declared in header file \code{gsl_sf_log.h} } \usage{ gsl_sf_log(x, give=FALSE, strict=TRUE) log_abs(x, give=FALSE, strict=TRUE) complex_log(zr, zi=NULL, r.and.i=TRUE, give=FALSE, strict=TRUE) log_1plusx(x, give=FALSE, strict=TRUE) log_1plusx_mx(x, give=FALSE, strict=TRUE) } \arguments{ \item{x}{input: real values} \item{zr}{In \code{complex_log()}, the real part of the argument} \item{zi}{In \code{complex_log()}, the imaginary part of the argument. If missing (ie takes the default value of \code{NULL}), interpret \code{zr} as complex, even if real} \item{r.and.i}{In \code{complex_log()}, Boolean variable with default value of \code{TRUE} meaning to return a complex variable as per the details section below; and \code{FALSE} meaning to return the values as advertised in the \acronym{GSL} manual} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error} } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ x <- seq(from=0.1,to=2,by=0.01) log(x) #table 7.5 of Ab and St } \keyword{array} gsl/man/Dilog.Rd0000644000176000001440000000256012251674014013174 0ustar ripleyusers\name{Dilog} \alias{Dilog} \alias{dilog} \alias{polylog} \alias{complex_dilog} \title{Dilog functions} \description{ Dilog functions as per the Gnu Scientific Library reference manual section 7.11. These functions are declared in header file \code{gsl_sf_dilog.h} } \usage{ dilog(x, give=FALSE, strict=TRUE) complex_dilog(r, theta, give=FALSE, strict=TRUE) } \arguments{ \item{x}{input: real values} \item{r,theta}{In \code{complex_dilog()}, input values. If \code{theta} takes its default value of \code{NULL}, interpret \code{r} as a complex-valued object. If \code{theta} is non-null, interpret \code{r} as the Modulus, and \code{theta} as the argument, of the complex object passed to \code{gsl_sf_complex_dilog_e()}} \item{give}{Boolean, with default \code{FALSE} meaning to return just the answers, and \code{TRUE} meaning to return a status vector as well} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if nonzero status is returned by the \acronym{GSL} function (\code{FALSE} means to return the value: use with caution)} } \details{All functions as documented in the \acronym{GSL} reference manual section 7.11.} \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ x <- seq(from=0, to=0.1,by=0.01) cbind(x,"f(x)"=dilog(1-x)) #table 27.7, p1005 } \keyword{array} gsl/man/Gegenbauer.Rd0000644000176000001440000000350212251674014014177 0ustar ripleyusers\name{Gegenbauer} \alias{Gegenbauer} \alias{gegenbauer} \alias{gegenpoly_1} \alias{gegenpoly_2} \alias{gegenpoly_3} \alias{gegenpoly_n} \alias{gegenpoly_array} \title{Gegenbauer functions} \description{ Gegenbauer functions as per the Gnu Scientific Library reference manual section 7.20, and AMS-55, chapter 22. These functions are declared in header file \code{gsl_sf_gegenbauer.h} } \usage{ gegenpoly_1(lambda, x, give=FALSE,strict=TRUE) gegenpoly_2(lambda, x, give=FALSE,strict=TRUE) gegenpoly_3(lambda, x, give=FALSE,strict=TRUE) gegenpoly_n(n,lambda, x, give=FALSE,strict=TRUE) gegenpoly_array(nmax,lambda, x, give=FALSE,strict=TRUE) } \arguments{ \item{lambda,x}{input: real values} \item{n,nmax}{input: integer value} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error}} \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ x <- seq(from=-1 ,to=1,len=300) y <- gegenpoly_array(6,0.5,x) matplot(x,t(y[-(1:2),]), xlim=c(-1,1.2),ylim=c(-0.5,1.5), type="l",xaxt="n",yaxt="n",bty="n",xlab="",ylab="", main="Figure 22.5, p777",col="black") axis(1,pos=0) axis(2,pos=0) plot(x, gegenpoly_n(5,lambda=0.2, x,give=FALSE,strict=TRUE), xlim=c(-1,1),ylim=c(-1.5,1.5),main="Figure 22.5, p777", type="n",xaxt="n",yaxt="n",bty="n",xlab="",ylab="") lines(x, gegenpoly_n(5,lambda=0.2, x,give=FALSE,strict=TRUE)) lines(x, gegenpoly_n(5,lambda=0.4, x,give=FALSE,strict=TRUE)) lines(x, gegenpoly_n(5,lambda=0.6, x,give=FALSE,strict=TRUE)) lines(x, gegenpoly_n(5,lambda=0.8, x,give=FALSE,strict=TRUE)) lines(x, gegenpoly_n(5,lambda=1.0, x,give=FALSE,strict=TRUE)) axis(1,pos=0) axis(2,pos=0,las=1) } \keyword{array} gsl/man/Transport.Rd0000644000176000001440000000171412251674014014132 0ustar ripleyusers\name{Transport} \alias{Transport} \alias{transport} \alias{transport_2} \alias{transport_3} \alias{transport_4} \alias{transport_5} \title{Transport functions} \description{ Transport functions as per the Gnu Scientific Library, reference manual section 7.29. These functions are defined in header file \code{gsl_sf_transport.h} } \usage{ transport_2(x, give=FALSE, strict=TRUE) transport_3(x, give=FALSE, strict=TRUE) transport_4(x, give=FALSE, strict=TRUE) transport_5(x, give=FALSE, strict=TRUE) } \arguments{ \item{x}{input: real values} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number.} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error.} } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ x <- seq(from=0,to=2,by=0.01) transport_2(x) transport_3(x) } \keyword{array} gsl/man/Gamma.Rd0000644000176000001440000000634012251674014013160 0ustar ripleyusers\name{Gamma} \alias{Gamma} \alias{gamma} \alias{gsl_sf_gamma} \alias{lngamma} \alias{lngamma_sgn} \alias{gammastar} \alias{gammainv} \alias{lngamma_complex} \alias{taylorcoeff} \alias{fact} \alias{doublefact} \alias{lnfact} \alias{lndoublefact} \alias{gsl_sf_choose} \alias{lnchoose} \alias{poch} \alias{lnpoch} \alias{lnpoch_sgn} \alias{pochrel} \alias{gamma_inc_Q} \alias{gamma_inc_P} \alias{gamma_inc} \alias{gsl_sf_beta} \alias{lnbeta} \alias{beta_inc} \title{gamma functions} \description{ Gamma functions as per the Gnu Scientific Library reference manual section 7.19. These functions are declared in header file \code{gsl_sf_gamma.h} } \usage{ gsl_sf_gamma(x,give=FALSE,strict=TRUE) lngamma(x,give=FALSE,strict=TRUE) lngamma_sgn(x,give=FALSE,strict=TRUE) gammastar(x,give=FALSE,strict=TRUE) gammainv(x,give=FALSE,strict=TRUE) lngamma_complex(zr, zi=NULL, r.and.i=TRUE, give=FALSE, strict=TRUE) taylorcoeff(n,x,give=FALSE,strict=TRUE) fact(n,give=FALSE,strict=TRUE) doublefact(n,give=FALSE,strict=TRUE) lnfact(n,give=FALSE,strict=TRUE) lndoublefact(n,give=FALSE,strict=TRUE) gsl_sf_choose(n,m,give=FALSE,strict=TRUE) lnchoose(n,m,give=FALSE,strict=TRUE) poch(a,x,give=FALSE,strict=TRUE) lnpoch(a,x,give=FALSE,strict=TRUE) lnpoch_sgn(a,x,give=FALSE,strict=TRUE) pochrel(a,x,give=FALSE,strict=TRUE) gamma_inc_Q(a,x,give=FALSE,strict=TRUE) gamma_inc_P(a,x,give=FALSE,strict=TRUE) gamma_inc(a,x,give=FALSE,strict=TRUE) gsl_sf_beta(a,b,give=FALSE,strict=TRUE) lnbeta(a,b,give=FALSE,strict=TRUE) beta_inc(a,b,x,give=FALSE,strict=TRUE) } \arguments{ \item{x,a,b}{input: real values} \item{m,n}{input: integer value} \item{zr}{In \code{gamma_complex()}, the real part of the argument} \item{zi}{In \code{gamma_complex()}, the imaginary part of the argument. If missing (ie takes the default value of \code{NULL}), interpret \code{zr} as complex, even if real} \item{r.and.i}{In \code{gamma_complex()}, Boolean variable with default value of \code{TRUE} meaning to return a complex variable as per the details section below; and \code{FALSE} meaning to return the values as advertised in the \acronym{GSL} manual} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error} } \details{ All functions as documented in the \acronym{GSL} reference manual section 7.19. Note that \code{gamma_inc_P()} gives the area of the left tail of the gamma distribution so, for example, \code{gamma_inc_P(1.8, 5) = pgamma(5, 1.8)} to numerical accuracy. } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ gsl_sf_gamma(3) lngamma_complex(1+seq(from=0,to=5,by=0.1)*1i) #table 6.7, p 277 (LH col) #note 2pi phase diff jj <- expand.grid(1:10,2:5) x <- taylorcoeff(jj$Var1,jj$Var2) dim(x) <- c(10,4) x #table 23.5, p818 jj <- expand.grid(36:50,9:13) x <- gsl_sf_choose(jj$Var1,jj$Var2) dim(x) <- c(15,5) x #table 24.1, p829 (bottom bit) gamma_inc(1.2,1.3) beta(1.2, 1.3) lnbeta(1.2,1.55) beta_inc(1.2,1.4,1.6) gamma_inc_P(1.8, 5) - pgamma(5, 1.8) # should be small } \keyword{array} gsl/man/Multimin.Rd0000644000176000001440000001364512251674014013742 0ustar ripleyusers\name{multimin} \alias{Multimin} \alias{multimin} \alias{multimin.init} \alias{multimin.iterate} \alias{multimin.restart} \alias{multimin.fminimizer.size} \title{Function minimization} \description{ Function minimization using the Gnu Scientific Library, reference manual section 35. These functions are declared in header file \code{gsl_multimin.h} Several algorithms for finding (local) minima of functions in one or more variables are provided. All of the algorithms operate locally, in the sense that they maintain a best guess and require the function to be continuous. Apart from the Nelder-Mead algorithm, these algorithms also use a derivative. } \usage{ multimin(..., prec=0.0001) multimin.init(x, f, df=NA, fdf=NA, method=NA, step.size=NA, tol=NA) multimin.iterate(state) multimin.restart(state) multimin.fminimizer.size(state) } \arguments{ \item{...}{In function \code{multimin()}, the argument list passed to \code{multimin.init()}} \item{x}{A starting point. These algorithms are faster with better initial guesses} \item{f}{The function to minimize. This function must take a single \code{numeric} vector as input, and output a \code{numeric} scalar} \item{df}{The derivative of \code{f}. This is required for all algorithms except Nelder-Mead} \item{fdf}{A function that evaluates \code{f} and \code{df} simultaneously. This is optional, and is only useful if simultaneous evaluation is faster} \item{method}{The algorithm to use, which is one of \dQuote{\code{conjugate-fr}}, \dQuote{\code{conjugate-pr}}, \dQuote{\code{bfgs}}, \dQuote{\code{steepest-descent}} and \dQuote{\code{nm}}} \item{step.size}{This step size guides the algorithm to pick a good distance between points in its search} \item{tol}{This parameter is relevant for gradient-based methods. It controls how much the gradient should flatten out in each line search. More specifically, let \eqn{u(t) = f(x + st)} be the function restricted to the search ray. Then a point \eqn{t} is tolerable if \eqn{u'(t) < tol u'(0)}. Higher values give more lax linesearches. This parameter trades-off searching intensively in the outer loop (finding search directions) versus the inner loop (finding a good point in a particular direction)} \item{prec}{The stopping-rule precision parameter. For the derivative-based methods, a solution is good enough if the norm of the gradient is smaller than \code{prec}. For the non-derivative-based methods, a solution is good enough if the norm of successive solutions is smaller than \code{prec}} \item{state}{This stores all information relating to the progress of the optimization problem} } \details{ There are two ways to call \code{multimin}. The simple way is to merely call \code{multimin} directly. A more complicated way is to call \code{multimin.init} first, and then repeatedly call \code{multimin.iterate} until the guess gets good enough. In addition, \code{multimin.restart} can be used with the second approach to discard accumulated information (such as curvature information) if that information turns out to be unhelpful. This is roughly equivalent to calling \code{multimin.init} by setting the starting point to be the current best guess. All of the derivative-based methods consist of iterations that pick a descent direction, and conduct a line search for a better point along the ray in that direction from the current point. The Fletcher-Reeves and Polak-Ribiere conjugate gradient algorithms maintain a a vector that summarizes the curvature at that point. These are useful for high-dimensional problems (eg: more than 100 dimensions) because they don't use matrices which become expensive to keep track of. The Broyden-Fletcher-Goldfarb-Shanno is better for low-dimensional problems, since it maintains an approximation of the Hessian of the function as well, which gives better curvature information. The steepest-descent algorithm is a naive algorithm that does not use any curvature information. The Nelder-Mead algorithm which does not use derivatives. } \value{All of these functions return a state variable, which consists of the following items: \item{internal.state}{Bureaucratic stuff for communicating with \acronym{GSL}} \item{x}{The current best guess of the optimal solution} \item{f}{The value of the function at the best guess} \item{df}{The derivative of the function at the best guess} \item{is.fdf}{TRUE if the algorithm is using a derivative} \item{code}{The \acronym{GSL} return code from the last iteration} } \references{\url{http://www.gnu.org/software/gsl}} \seealso{ \code{optim} and \code{nlm} are the standard optimization functions in R. \code{deriv} and \code{D} are the standard symbolic differentation functions in R. \code{Ryacas} provides more extensive differentiation support using Yet Another Computer Algebra System. \code{numericDeriv} is the standard numerical differentation function in R. \acronym{GSL} can also do numerical differentiation, but no-one has written an R interface yet. \code{multimin} requires the objective function to have a single (vector) argument. \code{unlist} and \code{relist} are useful for converting between more convenient forms. } \author{Andrew Clausen \email{clausen@econ.upenn.edu}} \note{The source code for the functions documented here conditionalizes on \code{WIN32}; under windows there is a slight memory leak.} \examples{ # The Rosenbrock function: x0 <- c(-1.2, 1) f <- function(x) (1 - x[1])^2 + 100 * (x[2] - x[1]^2)^2 df <- function(x) c(-2*(1 - x[1]) + 100 * 2 * (x[2] - x[1]^2) * (-2*x[1]), 100 * 2 * (x[2] - x[1]^2)) # The simple way to call multimin. state <- multimin(x0, f, df) print(state$x) # The fine-control way to call multimin. state <- multimin.init(x0, f, df, method="conjugate-fr") for (i in 1:200) state <- multimin.iterate(state) print(state$x) } \keyword{array} gsl/man/Rng.Rd0000644000176000001440000000413412251674014012663 0ustar ripleyusers\name{Rng} \alias{Rng} \alias{rng} \alias{rng_alloc} \alias{rng_clone} \alias{rng_max} \alias{rng_min} \alias{rng_name} \alias{rng_set} \alias{rng_get} \alias{rng_uniform} \alias{rng_uniform_int} \alias{rng_uniform_pos} \title{Random numbers generation} \description{Random number generation with the Gnu Scientific Library, as per the reference manual section 17} \usage{ rng_alloc(type) rng_clone(r) rng_name(r) rng_max(r) rng_min(r) rng_set(r, seed) rng_get(r, length) rng_uniform(r, length) rng_uniform_int(r, N, length) rng_uniform_pos(r, length) } \arguments{ \item{type}{In function \code{rng_alloc()}, type of random number generator. This argument is taken to be a character string which is matched to the names of the random number generators given in the \acronym{GSL} manual section 17.9, with the initial \dQuote{\code{gsl_rng_}} removed (for example, to use generator \code{gsl_rng_ranlux}, set \code{type} to \code{ranlux}). Partial matching is used; a null string is interpreted as \code{mt19937}.} \item{r}{Instance of a random number generator. Generate this using function \code{rng_alloc()}.} \item{seed}{Random number seed} \item{length}{Length of vector of random numbers to create} \item{N}{In function \code{rng_uniform_int()}, upper bound of uniform distribution} } \details{ These are wrappers for the random number generator functions from the \acronym{GSL} \url{http://www.gnu.org/software/gsl} with arguments corresponding to those from the library. Calling \code{rng_free} is not necessary as R performs garbage collection automatically. The functions that return random numbers (\code{rng_get}, \code{rng_uniform}, \code{rng_uniform_int}, \code{rng_uniform_pos}) take an extra argument that specifies the length of the vector of random numbers to be returned. } \value{ Function \code{rng_alloc()} returns an external pointer to a \acronym{GSL} random number generator. } \references{\url{http://www.gnu.org/software/gsl}} \author{Max Bruche} \examples{ r <- rng_alloc("cmrg") rng_set(r, 100) rng_uniform(r, 10) } \keyword{datagen} \keyword{distribution} gsl/man/Laguerre.Rd0000644000176000001440000000232012251674014013676 0ustar ripleyusers\name{Laguerre} \alias{Laguerre} \alias{laguerre} \alias{laguerre_1} \alias{laguerre_2} \alias{laguerre_3} \alias{laguerre_n} \title{Laguerre functions} \description{ Laguerre functions as per the Gnu Scientific Library reference manual section 7.22. These functions are declared in header file \code{gsl_sf_laguerre.h} } \usage{ laguerre_1(a, x, give=FALSE, strict=TRUE) laguerre_2(a, x, give=FALSE, strict=TRUE) laguerre_3(a, x, give=FALSE, strict=TRUE) laguerre_n(n, a, x, give=FALSE, strict=TRUE) } \arguments{ \item{a,x}{input: real values} \item{n}{input: integer values} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error}} \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ x <- seq(from=0,to=6,len=100) plot(x,laguerre_n(2,0,x),xlim=c(0,6),ylim=c(-2,3), type="l",xaxt="n",yaxt="n",bty="n",xlab="",ylab="", main="Figure 22.9, p780") lines(x,laguerre_n(3,0,x)) lines(x,laguerre_n(4,0,x)) lines(x,laguerre_n(5,0,x)) axis(1,pos=0) axis(2,pos=0) } \keyword{array} gsl/man/gsl-package.Rd0000644000176000001440000000464512251674014014322 0ustar ripleyusers\name{gsl-package} \alias{gsl-package} \alias{gsl} \alias{GSL} \docType{package} \title{ Wrappers for the Gnu Scientific Library } \description{ An \R wrapper for the special functions and quasi random number generators of the Gnu Scientific Library (\url{http://www.gnu.org/software/gsl/}) } \details{ \tabular{ll}{ Package: \tab gsl\cr Type: \tab Package\cr Version: \tab 1.8-3\cr Date: \tab 2007-05-23\cr License: \tab gsl\cr } The function naming scheme directly copies the \acronym{GSL} manual except that leading \code{gsl_sf_} and, if present, the trailing \code{_e} is stripped: thus \code{gsl_sf_Airy_Ai_e} goes to \R function \code{airy_Ai()}; however, some functions retain the prefix to avoid conflicts (viz \code{gsl_sf_sin()}, \code{gsl_sf_cos()}, \code{gsl_sf_gamma()}, \code{gsl_sf_ choose()}, \code{gsl_sf_beta()}). \R\ function arguments have the same names as in the \acronym{GSL} reference manual, except for the quasirandom functions documented in the \code{Qrng} manpage. The package is organized into units corresponding to \acronym{GSL} header files; the \code{.c}, \code{.R}, and \code{.Rd} filenames match the \acronym{GSL} header filenames, except that the \code{.Rd} files are capitalized. Functions appear in all files in the same order as the \acronym{GSL} reference manual, which precludes the use of the tidying method given in section 3.1 of R-exts. Error forms of \acronym{GSL} functions (\code{_e} versions) are used if available. In general, documentation is limited to: (a), a pointer to the \acronym{GSL} reference book, which would in any case dominate any docs here; and (b), re-productions of some tables and figures in Abramowitz and Stegun (June 1964). } \author{ \itemize{ \item Robin K. S. Hankin (special functions) \item Martin Maechler (quasi random sequences, \code{Qrng.Rd}) \item Andrew Clausen (function minimization, \code{Multimin.Rd}) } Maintainer: } \references{ \itemize{ \item M. Abramowitz and I. A. Stegun 1965. \emph{Handbook of mathematical functions}. New York: Dover \item M. Galassi et al. 2007. \emph{GNU Scientific Library}. Reference Manual edition 1.10, for \acronym{GSL} version 1.10; 10 September 2007 \item R. K. S. Hankin 2006. \emph{Introducing gsl, a wrapper for the Gnu Scientific Library}. Rnews 6(4):24-26 } } \keyword{ package } \examples{ airy_Ai(1:5) } gsl/man/Trig.Rd0000644000176000001440000000367112251674014013047 0ustar ripleyusers\name{Trig} \alias{Trig} \alias{trig} \alias{gsl_sf_sin} \alias{gsl_sf_cos} \alias{hypot} \alias{sinc} \alias{complex_sin} \alias{complex_cos} \alias{complex_logsin} \alias{lnsinh} \alias{lncosh} \title{Trig functions} \description{ Trig functions as per the Gnu Scientific Library, reference manual section 7.30. These functions are declared in header file \code{gsl_sf_trig.h} } \usage{ gsl_sf_sin(x, give=FALSE, strict=TRUE) gsl_sf_cos(x, give=FALSE, strict=TRUE) hypot(x, y, give=FALSE, strict=TRUE) sinc(x, give=FALSE, strict=TRUE) complex_sin(zr, zi=NULL, r.and.i=TRUE, give=FALSE, strict=TRUE) complex_cos(zr, zi=NULL, r.and.i=TRUE, give=FALSE, strict=TRUE) lnsinh(x, give=FALSE, strict=TRUE) lncosh(x, give=FALSE, strict=TRUE) } \arguments{ \item{x,y}{input: real values} \item{zr}{In \code{gamma_complex()}, the real part of the argument} \item{zi}{In \code{complex_sin()} et seq, the imaginary part of the argument. If missing (ie takes the default value of \code{NULL}), interpret \code{zr} as complex, even if real} \item{r.and.i}{In \code{complex_sin()} et seq, Boolean variable with default value of \code{TRUE} meaning to return a complex variable as per the details section below; and \code{FALSE} meaning to return the values as advertised in the \acronym{GSL} manual} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error} } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ x <- seq(from=0,to=2,by=0.01) gsl_sf_sin(x) #table xx of Ab and St gsl_sf_cos(x) #table xx of Ab and St f <- function(x){abs(sin(x+1)-sin(x)*cos(1)-cos(x)*sin(1))} g <- function(x){abs(gsl_sf_sin(x+1)-gsl_sf_sin(x)*gsl_sf_cos(1)-gsl_sf_cos(x)*gsl_sf_sin(1))} f(100000:100010) g(100000:100010) } \keyword{array} gsl/man/Hyperg.Rd0000644000176000001440000000337512251674014013401 0ustar ripleyusers\name{Hyperg} \alias{Hyperg} \alias{hyperg} \alias{hyperg_0F1} \alias{hyperg_1F1_int} \alias{hyperg_1F1} \alias{hyperg_U_int} \alias{hyperg_U} \alias{hyperg_2F1} \alias{hyperg_2F1_conj} \alias{hyperg_2F1_renorm} \alias{hyperg_2F1_conj_renorm} \alias{hyperg_2F0} \title{Hypergeometric functions} \description{ Hypergeometric functions as per the Gnu Scientific Library reference manual section 7.21 and AMS-55, chapters 13 and 15. These functions are declared in header file \code{gsl_sf_hyperg.h} } \usage{ hyperg_0F1(c, x, give=FALSE, strict=TRUE) hyperg_1F1_int(m, n, x, give=FALSE, strict=TRUE) hyperg_1F1(a, b, x, give=FALSE, strict=TRUE) hyperg_U_int(m, n, x, give=FALSE, strict=TRUE) hyperg_U(a, b, x, give=FALSE, strict=TRUE) hyperg_2F1(a, b, c, x, give=FALSE, strict=TRUE) hyperg_2F1_conj(aR, aI, c, x, give=FALSE, strict=TRUE) hyperg_2F1_renorm(a, b, c, x, give=FALSE, strict=TRUE) hyperg_2F1_conj_renorm(aR, aI, c, x, give=FALSE, strict=TRUE) hyperg_2F0(a, b, x, give=FALSE, strict=TRUE) } \arguments{ \item{x}{input: real values} \item{a,b,c}{input: real values} \item{m,n}{input: integer values} \item{aR,aI}{input: real values} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number.} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error} } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \note{ \dQuote{The circle of convergence of the Gauss hypergeometric series is the unit circle \eqn{|z|=1}{|z|=1}} (AMS, page 556). } \examples{ hyperg_0F1(0.1,0.55) hyperg_1F1_int(2,3,0.555) hyperg_1F1(2.12312,3.12313,0.555) hyperg_U_int(2, 3, 0.555) hyperg_U(2.234, 3.234, 0.555) } \keyword{array} gsl/man/Coulomb.Rd0000644000176000001440000000603212251674014013534 0ustar ripleyusers\name{Coulomb} \alias{Coulomb} \alias{coulomb} \alias{hydrogenicR_1} \alias{hydrogenicR} \alias{coulomb_wave_FG} \alias{coulomb_wave_F_array} \alias{coulomb_wave_FG_array} \alias{coulomb_wave_FGp_array} \alias{coulomb_wave_sphF_array} \alias{coulomb_CL} \alias{coulomb_CL_array} \title{Coulomb functions} \description{ Coulomb functions as per the Gnu Scientific Library, reference manual section 7.7 and AMS-55, chapter 14. These functions are declared in header file \code{gsl_sf_coulomb.h} } \usage{ hydrogenicR_1(Z, r, give=FALSE, strict=TRUE) hydrogenicR(n, l, Z, r, give=FALSE, strict=TRUE) coulomb_wave_FG(eta, x, L_F, k, give=FALSE, strict=TRUE) coulomb_wave_F_array(L_min, kmax, eta, x, give=FALSE,strict=TRUE) coulomb_wave_FG_array(L_min, kmax, eta, x, give=FALSE,strict=TRUE) coulomb_wave_FGp_array(L_min, kmax, eta, x, give=FALSE,strict=TRUE) coulomb_wave_sphF_array(L_min, kmax, eta, x, give=FALSE,strict=TRUE) coulomb_CL(L,eta, give=FALSE,strict=TRUE) coulomb_CL_array(L_min, kmax, eta, give=FALSE,strict=TRUE) } \arguments{ \item{n,l,kmax}{input: integers} \item{Z,r,eta,x,L_F,L_min,k,L}{input: real values} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error} } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ x <- seq(from=0,to=14,len=300) jj <- coulomb_wave_FG(1,10,x,0) plot(x,jj$val_F,type="l",xaxt="n",yaxt="n",bty="n",xlab="",ylab="", main="Figure 14.1, p539") lines(x,jj$val_G,type="l",lty=2) axis(1,pos=0,at=1:14, labels=c("","2","","4","","6","","8","","10","","12","","14")) lines(c(0,1),c(0,0)) axis(2,pos=0) text(9.5, 0.63, expression(F[L])) text(8.5, 1.21, expression(G[L])) x <- seq(from=0,to=24,len=400) plot(x,coulomb_wave_FG(eta=1,x,L_F=0,k=0)$val_F,type="l", ylim=c(-1.3,1.7), xlim=c(0,26), xaxt="n",yaxt="n",bty="n",xlab="",ylab="",main="Figure 14.3, p541",lty=3) lines(x,coulomb_wave_FG(eta= 0,x,L_F=0,k=0)$val_F,type="l",lty=1) lines(x,coulomb_wave_FG(eta= 5,x,L_F=0,k=0)$val_F,type="l",lty=6) lines(x,coulomb_wave_FG(eta=10,x,L_F=0,k=0)$val_F,type="l",lty=6) lines(x,coulomb_wave_FG(eta=x/2,x,L_F=0,k=0)$val_F,type="l",lty="F3") axis(1,pos=0,at=1:24, labels=c("","2","","4","","","","8","","10","","12", "","14","","","","18","","","","22","","24")) lines(c(0,26),c(0,0)) axis(2,pos=0,at=0.2*(-6:9), labels=c("","-1.2","","-.8","","-.4","","0","",".4", "",".8","","1.2","","1.6")) text(2.5, -0.8, expression(eta == 0)) text(4.5,1.1,adj=0, expression(eta == 1)) text(14,1.4,adj=0, expression(eta == 5)) text(22,1.4,adj=0, expression(eta == 10)) x <- seq(from=0.5,to=10,by=0.5) jj <- coulomb_wave_FG(eta=t(matrix(x,20,5)), x=1:5,0,0) jj.F <- t(jj$val_F) jj.G <- t(jj$val_G) colnames(jj.F) <- 1:5 colnames(jj.G) <- 1:5 cbind(x,jj.F) #table 14.1, p 546, top bit. cbind(x,jj.G) #table 14.1, p 547, top bit. } \keyword{array} gsl/man/Airy.Rd0000644000176000001440000000535212251674014013044 0ustar ripleyusers\name{Airy} \alias{Airy} \alias{airy} \alias{airy_Ai} \alias{airy_Bi} \alias{airy_Bi_e} \alias{airy_Ai_scaled} \alias{airy_Ai_scaled_e} \alias{airy_Bi_scaled} \alias{airy_Bi_scaled_e} \alias{airy_Ai_deriv} \alias{airy_Ai_deriv_e} \alias{airy_Bi_deriv} \alias{airy_Bi_deriv_e} \alias{airy_Ai_deriv_scaled} \alias{airy_Ai_deriv_scaled_e} \alias{airy_Bi_deriv_scaled} \alias{airy_Bi_deriv_scaled_e} \alias{airy_zero_Ai} \alias{airy_zero_Ai_e} \alias{airy_zero_Bi} \alias{airy_zero_Bi_e} \alias{airy_zero_Ai_deriv} \alias{airy_zero_Ai_deriv_e} \alias{airy_zero_Bi_deriv} \alias{airy_zero_Bi_deriv_e} \title{Airy functions} \description{ Airy functions as per the Gnu Scientific Library, reference manual section 7.4 and AMS-55, section 10.4. These functions are declared in header file \code{gsl_sf_airy.h} } \usage{ airy_Ai(x, mode=0, give=FALSE, strict=TRUE) airy_Ai_scaled(x, mode=0, give=FALSE, strict=TRUE) airy_Ai(x, mode=0, give=FALSE, strict=TRUE) airy_Bi_scaled(x, mode=0, give=FALSE, strict=TRUE) airy_Ai_deriv(x, mode=0, give=FALSE, strict=TRUE) airy_Bi_deriv(x, mode=0, give=FALSE, strict=TRUE) airy_Ai_deriv_scaled(x, mode=0, give=FALSE, strict=TRUE) airy_Bi_deriv_scaled(x, mode=0, give=FALSE, strict=TRUE) airy_zero_Ai(n, give=FALSE, strict=TRUE) airy_zero_Bi(n, give=FALSE, strict=TRUE) airy_zero_Ai_deriv(n, give=FALSE, strict=TRUE) airy_zero_Bi_deriv(n, give=FALSE, strict=TRUE) } \arguments{ \item{x}{input: real values} \item{n}{input: integer values} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number} \item{mode}{input: mode. For \code{GSL_PREC_DOUBLE}, \code{GSL_PREC_SINGLE}, \code{GSL_PREC_APPROX} use \code{0,1,2} respectively} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error} } \details{ The zero functions return a status of \code{GSL_EDOM} and a value of \code{NA} for \eqn{n\leq 0}{n <= 0}. An example is given in the package vignette. } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ x <- seq(from=0,to=1,by=0.01) f <- function(x){ cbind(x=x, Ai= airy_Ai(x), Aidash= airy_Ai_deriv(x), Bi=airy_Ai(x),Bidash=airy_Bi_deriv(x)) } f(x) #table 10.11, p475 f(-x) #table 10.11, p476 x <- 1:10 #table 10.13, p478 cbind(x, airy_zero_Ai(x), airy_Ai_deriv(airy_zero_Ai(x)), airy_zero_Ai_deriv(x), airy_Ai(airy_zero_Ai_deriv(x)), airy_zero_Bi(x), airy_Bi_deriv(airy_zero_Bi(x)), airy_zero_Bi_deriv(x), airy_Bi(airy_zero_Bi_deriv(x)) ) # Verify 10.4.4 and 10.4.5, p446: 3^(-2/3)/gamma(2/3) - airy_Ai(0) 3^(-1/3) / gamma(1/3) + airy_Ai_deriv(0) 3^(-1/6) / gamma(2/3) - airy_Bi(0) 3^(1/6) / gamma(1/3) - airy_Bi_deriv(0) # All should be small } gsl/man/Ellint.Rd0000644000176000001440000000476712251674014013400 0ustar ripleyusers\name{Ellint} \alias{Ellint} \alias{ellint} \alias{ellint_Kcomp} \alias{ellint_Ecomp} \alias{ellint_F} \alias{ellint_E} \alias{ellint_P} \alias{ellint_D} \alias{ellint_RC} \alias{ellint_RD} \alias{ellint_RF} \alias{ellint_RJ} \title{Elliptic functions} \description{ Elliptic functions as per the Gnu Scientific Library, reference manual section 7.13 and AMS-55, chapter 17. These functions are declared in header file \code{gsl_sf_ellint.h} } \usage{ ellint_Kcomp(k, mode=0, give=FALSE,strict=TRUE) ellint_Ecomp(k, mode=0, give=FALSE,strict=TRUE) ellint_F(phi,k, mode=0, give=FALSE,strict=TRUE) ellint_E(phi,k, mode=0, give=FALSE,strict=TRUE) ellint_P(phi,k,n, mode=0, give=FALSE,strict=TRUE) ellint_D(phi,k,n, mode=0, give=FALSE,strict=TRUE) ellint_RC(x, y, mode=0, give=FALSE,strict=TRUE) ellint_RD(x, y, z, mode=0, give=FALSE,strict=TRUE) ellint_RF(x, y, z, mode=0, give=FALSE,strict=TRUE) ellint_RJ(x, y, z, p, mode=0, give=FALSE,strict=TRUE) } \arguments{ \item{phi,k,n,p,x,y,z}{input: real values} \item{give}{Boolean, with default \code{FALSE} meaning to return just the answers, and \code{TRUE} meaning to return a status vector as well} \item{strict}{Boolean} \item{mode}{input: mode. For \code{GSL_PREC_DOUBLE}, \code{GSL_PREC_SINGLE}, \code{GSL_PREC_APPROX} use \code{0,1,2} respectively.} } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ ellint_Kcomp(0.3) ellint_Ecomp(0.3) ellint_F(0.4,0.7) ellint_E(0.4,0.7) ellint_P(0.4,0.7,0.3) ellint_D(0.4,0.7,0.3) ellint_RC(0.5,0.6) ellint_RD(0.5,0.6,0.7) ellint_RF(0.5,0.6,0.7) ellint_RJ(0.5,0.6,0.7,0.1) x <- seq(from=0,to=0.5,by=0.01) col1 <- ellint_Kcomp(sqrt(x)) col2 <- ellint_Kcomp(sqrt(1-x)) col3 <- exp(-pi*col2/col1) cbind(x,col1,col2,col3) #table 17.1, p608 x <- 0:45 col1 <- ellint_Kcomp(sin(pi/180*x)) col2 <- ellint_Kcomp(sin(pi/2-pi/180*x)) col3 <- exp(-pi*col2/col1) cbind(x,col1,col2,col3) #table 17.2, p610 x <- seq(from=0,to=90,by=2) f <- function(a){ellint_F(phi=a*pi/180,sin(x*pi/180))} g <- function(a){ellint_E(phi=a*pi/180,sin(x*pi/180))} h <- function(a,n){ellint_P(phi=a*pi/180,sin( a*15*pi/180),n)} i <- function(x){ellint_P(phi=x*pi/180, k=sin((0:6)*15*pi/180), n= -0.6)} cbind(x,f(5),f(10),f(15),f(20),f(25),f(30)) #table 17.5, p613 cbind(x,g(5),g(10),g(15),g(20),g(25),g(30)) #table 17.6, p616 cbind(i(15),i(30),i(45),i(60),i(75),i(90)) #table 17.9, #(BOTTOM OF p625) } \keyword{array} gsl/man/Dawson.Rd0000644000176000001440000000135312251674014013370 0ustar ripleyusers\name{Dawson} \alias{Dawson} \alias{dawson} \title{Dawson functions} \description{ Dawson functions as per the Gnu Scientific Library, reference manual section 7.9. These functions are declared in header file \code{gsl_sf_dawson.h} } \usage{ dawson(x, give=FALSE, strict=TRUE) } \arguments{ \item{x}{input: real values} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error} } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ x <- seq(from=0,to=2,by=0.01) dawson(x) #table 7.5 of Ab and St } \keyword{array} gsl/man/Coupling.Rd0000644000176000001440000000226212251674014013715 0ustar ripleyusers\name{Coupling} \alias{Coupling} \alias{coupling} \alias{coupling_3j} \alias{coupling_6j} \alias{coupling_9j} \title{Coupling functions} \description{ Coupling functions as per the Gnu Scientific Library, reference manual section 7.8. These functions are declared in header file \code{gsl_sf_coupling.h} } \usage{ coupling_3j(two_ja, two_jb, two_jc, two_ma, two_mb, two_mc, give=FALSE, strict=TRUE) coupling_6j(two_ja, two_jb, two_jc, two_jd, two_je, two_jf, give=FALSE, strict=TRUE) coupling_9j(two_ja, two_jb, two_jc, two_jd, two_je, two_jf, two_jg, two_jh, two_ji, give=FALSE, strict=TRUE) } \arguments{ \item{two_ja, two_jb, two_jc, two_jd, two_je, two_jf, two_jg, two_jh, two_ji, two_ma, two_mb, two_mc}{Arguments as per the \acronym{GSL} manual} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error} } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ coupling_3j(1,2,3,4,5,6) coupling_6j(1,2,3,4,5,6) coupling_9j(1,2,3,4,5,6,7,8,9) } \keyword{array} gsl/man/Legendre.Rd0000644000176000001440000000634512251674014013670 0ustar ripleyusers\name{Legendre} \alias{Legendre} \alias{legendre} \alias{legendre_P1} \alias{legendre_P2} \alias{legendre_P3} \alias{legendre_Pl} \alias{legendre_Pl_array} \alias{legendre_Q0} \alias{legendre_Q1} \alias{legendre_Ql} \alias{legendre_Plm} \alias{legendre_Plm_array} \alias{legendre_sphPlm} \alias{legendre_sphPlm_array} \alias{conicalP_half} \alias{conicalP_mhalf} \alias{conicalP_0} \alias{conicalP_1} \alias{conicalP_sph_reg} \alias{conicalP_cyl_reg} \alias{legendre_H3d_0} \alias{legendre_H3d_1} \alias{legendre_H3d} \alias{legendre_H3d_array} \alias{conical} \alias{Conical} \title{Legendre functions} \description{ Legendre functions as per the Gnu Scientific Library reference manual section 7.24, and AMS-55, chapter 8. These functions are declared in header file \code{gsl_sf_legendre.h} } \usage{ legendre_P1(x, give=FALSE, strict=TRUE) legendre_P2(x, give=FALSE, strict=TRUE) legendre_P3(x, give=FALSE, strict=TRUE) legendre_Pl(l, x, give=FALSE, strict=TRUE) legendre_Pl_array(lmax, x, give=FALSE, strict=TRUE) legendre_Q0(x, give=FALSE, strict=TRUE) legendre_Q1(x, give=FALSE, strict=TRUE) legendre_Ql(l, x, give=FALSE, strict=TRUE) legendre_Plm(l, m, x, give=FALSE, strict=TRUE) legendre_Plm_array(lmax, m, x, give=FALSE, strict=TRUE) legendre_sphPlm(l, m, x, give=FALSE, strict=TRUE) legendre_sphPlm_array(lmax, m, x, give=FALSE, strict=TRUE) conicalP_half(lambda, x, give=FALSE, strict=TRUE) conicalP_mhalf(lambda, x, give=FALSE, strict=TRUE) conicalP_0(lambda, x, give=FALSE, strict=TRUE) conicalP_1(lambda, x, give=FALSE, strict=TRUE) conicalP_sph_reg(l, lambda, x, give=FALSE, strict=TRUE) conicalP_cyl_reg(m, lambda, x, give=FALSE, strict=TRUE) legendre_H3d_0(lambda, eta, give=FALSE, strict=TRUE) legendre_H3d_1(lambda, eta, give=FALSE, strict=TRUE) legendre_H3d(l, lambda, eta, give=FALSE, strict=TRUE) legendre_H3d_array(lmax, lambda, eta, give=FALSE, strict=TRUE) } \arguments{ \item{eta,lambda,x}{input: real values} \item{l,m,lmax}{input: integer values} \item{give}{Boolean, with default \code{FALSE} meaning to return just the answers, and \code{TRUE} meaning to return a status vector as well} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if nonzero status is returned by the \acronym{GSL} function (\code{FALSE} means to return the value: use with caution)} } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ theta <- seq(from=0,to=pi/2,len=100) plot(theta,legendre_P1(cos(theta)),type="l",ylim=c(-0.5,1), main="Figure 8.1, p338") abline(1,0) lines(theta,legendre_P2(cos(theta)),type="l") lines(theta,legendre_P3(cos(theta)),type="l") x <- seq(from=0,to=1,len=600) plot(x, legendre_Plm(3,1,x), type="l",lty=3,main="Figure 8.2, p338: note sign error") lines(x,legendre_Plm(2,1,x), type="l",lty=2) lines(x,legendre_Plm(1,1,x), type="l",lty=1) abline(0,0) plot(x,legendre_Ql(0,x),xlim=c(0,1), ylim=c(-1,1.5), type="l",lty=1, main="Figure 8.4, p339") lines(x,legendre_Ql(1,x),lty=2) lines(x,legendre_Ql(2,x),lty=3) lines(x,legendre_Ql(3,x),lty=4) abline(0,0) #table 8.1 of A&S: t(legendre_Pl_array(10, seq(from=0,to=1,by=0.01))[1+c(2,3,9,10),]) #table 8.3: f <- function(n){legendre_Ql(n, seq(from=0,to=1,by=0.01))} sapply(c(0,1,2,3,9,10),f) } \keyword{array} gsl/man/Bessel.Rd0000644000176000001440000001657212251674014013363 0ustar ripleyusers\name{Bessel} \alias{Bessel} \alias{bessel} \alias{bessel_J0} \alias{bessel_J1} \alias{bessel_Jn} \alias{bessel_Jn_array} \alias{bessel_Y0} \alias{bessel_Y1} \alias{bessel_Yn} \alias{bessel_Yn_array} \alias{bessel_I0} \alias{bessel_I1} \alias{bessel_In} \alias{bessel_In_array} \alias{bessel_I0_scaled} \alias{bessel_I1_scaled} \alias{bessel_In_scaled} \alias{bessel_In_scaled_array} \alias{bessel_K0} \alias{bessel_K1} \alias{bessel_Kn} \alias{bessel_Kn_array} \alias{bessel_K0_scaled} \alias{bessel_K1_scaled} \alias{bessel_Kn_scaled} \alias{bessel_Kn_scaled_array} \alias{bessel_j0} \alias{bessel_j1} \alias{bessel_j2} \alias{bessel_jl} \alias{bessel_jl_array} \alias{bessel_jl_steed_array} \alias{bessel_y0} \alias{bessel_y1} \alias{bessel_y2} \alias{bessel_yl} \alias{bessel_yl_array} \alias{bessel_i0_scaled} \alias{bessel_i1_scaled} \alias{bessel_i2_scaled} \alias{bessel_il_scaled} \alias{bessel_il_scaled_array} \alias{bessel_k0_scaled} \alias{bessel_k1_scaled} \alias{bessel_k2_scaled} \alias{bessel_kl_scaled} \alias{bessel_kl_scaled_array} \alias{bessel_Jnu} \alias{bessel_sequence_Jnu} \alias{bessel_Ynu} \alias{bessel_Inu} \alias{bessel_Inu_scaled} \alias{bessel_Knu} \alias{bessel_lnKnu} \alias{bessel_Knu_scaled} \alias{bessel_zero_J0} \alias{bessel_zero_J1} \alias{bessel_zero_Jnu} \title{Bessel functions} \description{ Bessel functions as per the Gnu Scientific Library, reference manual section 7.5 and AMS-55, chapters 9 and 10. These functions are declared in header file \code{gsl_sf_bessel.h} } \usage{ bessel_J0(x, give=FALSE, strict=TRUE) bessel_J1(x, give=FALSE, strict=TRUE) bessel_Jn(n,x, give=FALSE, strict=TRUE) bessel_Jn_array(nmin,nmax,x, give=FALSE, strict=TRUE) bessel_Y0(x, give=FALSE, strict=TRUE) bessel_Y1(x, give=FALSE, strict=TRUE) bessel_Yn(n,x, give=FALSE, strict=TRUE) bessel_Yn_array(nmin, nmax, x, give=FALSE, strict=TRUE) bessel_I0(x, give=FALSE, strict=TRUE) bessel_I1(x, give=FALSE, strict=TRUE) bessel_In(n, x, give=FALSE, strict=TRUE) bessel_In_array(nmin, nmax, x, give=FALSE, strict=TRUE) bessel_I0_scaled(x, give=FALSE, strict=TRUE) bessel_I1_scaled(x, give=FALSE, strict=TRUE) bessel_In_scaled(n, x, give=FALSE, strict=TRUE) bessel_In_scaled_array(nmin, nmax, x, give=FALSE, strict=TRUE) bessel_K0(x, give=FALSE, strict=TRUE) bessel_K1(x, give=FALSE, strict=TRUE) bessel_Kn(n, x, give=FALSE, strict=TRUE) bessel_Kn_array(nmin, nmax, x, give=FALSE, strict=TRUE) bessel_K0_scaled(x, give=FALSE, strict=TRUE) bessel_K1_scaled(x, give=FALSE, strict=TRUE) bessel_Kn_scaled(n, x, give=FALSE, strict=TRUE) bessel_Kn_scaled_array(nmin, nmax, x, give=FALSE, strict=TRUE) bessel_j0(x, give=FALSE, strict=TRUE) bessel_j1(x, give=FALSE, strict=TRUE) bessel_j2(x, give=FALSE, strict=TRUE) bessel_jl(l,x, give=FALSE, strict=TRUE) bessel_jl_array(lmax,x, give=FALSE, strict=TRUE) bessel_jl_steed_array(lmax, x, give=FALSE, strict=TRUE) bessel_y0(x, give=FALSE, strict=TRUE) bessel_y1(x, give=FALSE, strict=TRUE) bessel_y2(x, give=FALSE, strict=TRUE) bessel_yl(l, x, give=FALSE, strict=TRUE) bessel_yl_array(lmax, x, give=FALSE, strict=TRUE) bessel_i0_scaled(x, give=FALSE, strict=TRUE) bessel_i1_scaled(x, give=FALSE, strict=TRUE) bessel_i2_scaled(x, give=FALSE, strict=TRUE) bessel_il_scaled(l, x, give=FALSE, strict=TRUE) bessel_il_scaled_array(lmax, x, give=FALSE, strict=TRUE) bessel_k0_scaled(x, give=FALSE, strict=TRUE) bessel_k1_scaled(x, give=FALSE, strict=TRUE) bessel_k2_scaled(x, give=FALSE, strict=TRUE) bessel_kl_scaled(l,x, give=FALSE, strict=TRUE) bessel_kl_scaled_array(lmax,x, give=FALSE, strict=TRUE) bessel_Jnu(nu, x, give=FALSE, strict=TRUE) bessel_sequence_Jnu(nu, v, mode=0, give=FALSE, strict=TRUE) bessel_Ynu(nu, x, give=FALSE, strict=TRUE) bessel_Inu(nu, x, give=FALSE, strict=TRUE) bessel_Inu_scaled(nu, x, give=FALSE, strict=TRUE) bessel_Knu(nu, x, give=FALSE, strict=TRUE) bessel_lnKnu(nu, x, give=FALSE, strict=TRUE) bessel_Knu_scaled(nu, x, give=FALSE, strict=TRUE) bessel_zero_J0(s, give=FALSE, strict=TRUE) bessel_zero_J1(s, give=FALSE, strict=TRUE) bessel_zero_Jnu(nu, s, give=FALSE, strict=TRUE) } \arguments{ \item{x,v,nu}{input: real valued} \item{n,nmin,nmax,lmax}{input: integer valued} \item{l,s}{input: integer valued} \item{mode}{Integer, calc mode} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number} \item{strict}{strict or not} } \details{All as for the \acronym{GSL} reference manual section 7.5 } \author{Robin K. S. Hankin} \references{\url{http://www.gnu.org/software/gsl}} \examples{ # Compare native R routine with GSL: besselK(0.55,4) - bessel_Knu(4,0.55) # should be small x <- seq(from=0,to=15,len=1000) plot(x,bessel_J0(x),xlim=c(0,16),ylim=c(-0.8,1.1),type="l", xaxt="n",yaxt="n",bty="n",xlab="",ylab="", main="Figure 9.1, p359") jj.Y0 <- bessel_Y0(x) jj.Y0[jj.Y0< -0.8] <- NA lines(x,jj.Y0) lines(x,bessel_J1(x),lty=2) jj.Y1 <- bessel_Y1(x) jj.Y1[jj.Y1< -0.8] <- NA lines(x,jj.Y1,lty=2) axis(1,pos=0,at=1:15, labels=c("","2","","4","","6","","8","","10","","12","","14","") ) axis(2,pos=0,at=seq(from=-8,to=10,by=2)/10, labels=c("-.8","-.6","-.4","-.2","0",".2",".4",".6",".8","1.0")) arrows(0,0,16,0,length=0.1,angle=10) arrows(0,0,0,1.1,length=0.1,angle=10) text(1.1, 0.83, expression(J[0])) text(0.37, 0.3, expression(J[1])) text(0.34,-0.3, expression(Y[0])) text(1.7,-0.5, expression(Y[1])) text(4.2, 0.43, expression(Y[1])) text(7.2, 0.33, expression(J[0])) text(8.6, 0.3, expression(J[0],paste(" ,"))) text(9.1, 0.3, expression(Y[0])) x <- seq(from=0,to=13,len=100) y <- t(bessel_jl_array(3,x)) y[y>0.6] <- NA matplot(x,y,col="black",type="l",xaxt="n",yaxt="n",bty="n", xlab="",ylab="",xlim=c(0,16),ylim=c(-0.3,0.75), main="Figure 10.1, p438") axis(1,pos=0,at=2*(1:7)) arrows(0,0,15,0,length=0.1,angle=10) arrows(0,0,0,0.65,length=0.1,angle=10) axis(2,pos=0,las=1,at=seq(from=-3,to=6)/10, labels=c("-.3","-.2","-.1","0",".1",".2",".3",".4",".5",".6")) text(0, 0.7, expression(J[n](x))) text(15.5, 0, expression(x)) text(2.2,0.58,expression(n==0)) text(3.2,0.4,expression(n==1)) text(4.3,0.3,expression(n==2)) text(6.0,0.22,expression(n==3)) x <- seq(from=0 ,to=5,by=0.1) cbind(x, bessel_J0(x),bessel_J1(x),bessel_Jn(2,x)) #table 9.1, p390 cbind(x, bessel_Y0(x),bessel_Y1(x),bessel_Yn(2,x)) #table 9.2, p391 t(bessel_Jn_array(3,9,x*2)) #table 9.2, p398 x <- seq(from=8,to=10,by=0.2) jj <- t(bessel_Jn(n=3:9,x=t(matrix(x,11,7)))) colnames(jj) <- paste("J",3:9,"(x)",sep="") cbind(x,jj) #another part of table 9.2, p398 x <- seq(from=8,to=10,by=0.2) jj <- t(bessel_Yn(n=3:9,x=t(matrix(x,11,7)))) colnames(jj) <- paste("J",3:9,"(x)",sep="") cbind(x,jj) #part of table 9.2, p399 cbind( x, #table 9.8, p416 exp(-x)*bessel_I0 (x), exp(-x)*bessel_I1 (x), x^(-2)*bessel_In(2,x) ) cbind( x, #table 9.8, p417 exp(x)*bessel_K0 (x), exp(x)*bessel_K1 (x), x^(2)*bessel_Kn(2,x) ) cbind(x, #table 10.1 , p457 bessel_j0(x), bessel_j1(x), bessel_j2(x), bessel_y0(x), bessel_y1(x), bessel_y2(x) ) cbind(0:9,"x=1"=bessel_yl(l=0:9,x=1), "x=2"=bessel_yl(l=0:9,x=2), "x=5"=bessel_yl(l=0:9,x=5)) #table 10.5, p466, top } \keyword{array} gsl/man/Psi.Rd0000644000176000001440000000221212251674014012663 0ustar ripleyusers\name{Psi} \alias{Psi} \alias{psi_int} \alias{psi} \alias{psi_1piy} \alias{psi_1_int} \alias{psi_1} \alias{psi_n} \title{Psi (digamma) functions} \description{ Psi (digamma) functions as per the Gnu Scientific Library, reference manual section 7.27. These functions are declared in header file \code{gsl_sf_psi.h} } \usage{ psi_int(n, give=FALSE, strict=TRUE) psi(x, give=FALSE, strict=TRUE) psi_1piy(y, give=FALSE, strict=TRUE) psi_1_int(n, give=FALSE, strict=TRUE) psi_1(x, give=FALSE, strict=TRUE) psi_n(m, x, give=FALSE, strict=TRUE) } \arguments{ \item{m,n}{input: integer values} \item{x,y}{input: real values} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error} } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ x <- seq(from=1.2,to=1.25,by=0.005) cbind(x,psi(x),psi_1(x)) #tabe 6.1, p267, bottom bit psi_int(1:6) psi(pi+(1:6)) psi_1piy(pi+(1:6)) psi_1_int(1:6) psi_n(m=5,x=c(1.123,1.6523)) } \keyword{array} gsl/man/Clausen.Rd0000644000176000001440000000132512251674014013526 0ustar ripleyusers\name{Clausen} \alias{Clausen} \alias{clausen} \title{Clausen functions} \description{ Clausen functions as per the Gnu Scientific Library section 7.6. These functions are declared in header file \code{gsl_sf_clausen.h} } \usage{ clausen(x, give=FALSE, strict=TRUE) } \arguments{ \item{x}{input: real values} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error} } \author{Robin K. S. Hankin} \references{\url{http://www.gnu.org/software/gsl}} \examples{ x <- (0:30)*pi/180 clausen(x) #table 27.8, p1006 } \keyword{array} gsl/man/Elljac.Rd0000644000176000001440000000377112251674014013335 0ustar ripleyusers\name{Elljac} \alias{Elljac} \alias{elljac} \alias{sn_cn_dn} \alias{gsl_sn} \alias{gsl_cn} \alias{gsl_dn} \alias{gsl_ns} \alias{gsl_nc} \alias{gsl_nd} \alias{gsl_sc} \alias{gsl_sd} \alias{gsl_cs} \alias{gsl_cd} \alias{gsl_ds} \alias{gsl_dc} \title{Elliptic functions} \description{ Elljac functions as per the Gnu Scientific Library, reference manual section 7.14 and AMS-55, chapter 16. These functions are declared in header file \code{gsl_sf_elljac.h} } \usage{ elljac(u, m, give=FALSE, strict=TRUE) gsl_sn(z,m) gsl_cn(z,m) gsl_dn(z,m) gsl_ns(z,m) gsl_nc(z,m) gsl_nd(z,m) gsl_sc(z,m) gsl_sd(z,m) gsl_cs(z,m) gsl_cd(z,m) gsl_ds(z,m) gsl_dc(z,m) } \arguments{ \item{u,m}{input: real values} \item{z}{input: complex values} \item{give}{Boolean with \code{TRUE} meaning to return a list of three items: the value, an estimate of the error, and a status number} \item{strict}{Boolean, with \code{TRUE} meaning to return \code{NaN} if status is an error} } \details{ A straightforward wrapper for the \code{gsl_sf_elljac_e} function of the \acronym{GSL} library, except for \code{gsl_sn()}, \code{gsl_cn()}, and \code{gsl_dn()}, which implement 16.21.1 to 16.21.4 (thus taking complex arguments); and \code{gsl_ns()} et seq which are the minor elliptic functions. Function \code{sn_cn_dn()} is not really intended for the end-user. } \references{\url{http://www.gnu.org/software/gsl}} \author{Robin K. S. Hankin} \examples{ K <- ellint_F(phi=pi/2,k=sqrt(1/2)) #note the sqrt: m=k^2 u <- seq(from=0,to=4*K,by=K/24) jj <- elljac(u,1/2) plot(u,jj$sn,type="l",xaxt="n",yaxt="n",bty="n",ylab="",xlab="",main="Fig 16.1, p570") lines(u,jj$cn,lty=2) lines(u,jj$dn,lty=3) axis(1,pos=0,at=c(K,2*K,3*K,4*K),labels=c("K","2K","3K","4K")) abline(0,0) axis(2,pos=0,at=c(-1,1)) text(1.8*K,0.6,"sn u") text(1.6*K,-0.5,"cn u") text(2.6*K,0.9,"dn u") a <- seq(from=-5,to=5,len=100) jj <- outer(a,a,function(a,b){a}) z <- jj+1i*t(jj) e <- Re(gsl_cd(z,m=0.2)) e[abs(e)>10] <- NA contour(a,a,e,nlev=55) } \keyword{array} gsl/cleanup0000755000176000001440000000015612251674014012450 0ustar ripleyusers #! /bin/sh for f in ./config.*; do rm -f $f done if [ -e src/Makevars ]; then rm -f src/Makevars fi exit 0