R/xerp.R

"xerp" <-
function(ip,xlcnst=-1.0,s) {
if (missing(ip)) messagena("ip")
if (missing(s)) messagena("s")
f <- single(1)
f.res <- .Fortran("xerpz",
ip=to.integer(ip),
xlcnst=to.single(xlcnst),
s=to.single(s),
f=to.single(f))
list(xlcnst=f.res$xlcnst,f=f.res$f)
}

Try the robeth package in your browser

Any scripts or data that you put into this service are public.

robeth documentation built on Aug. 22, 2023, 9:09 a.m.