Nothing
dfcomn2 <-
function (ipsi = -9, c = -1.345, h1 = -1.7, h2 = -3.4, h3 = -8.5,
xk = -1.548, d = -1.345, beta = -0.5, bet0 = -1, iucv = -1,
a2 = 0, b2 = -3, chk = -9, ckw = -2, bb = -1, bt = -1, cw = -1,
em = -1.345, cr = -2, vk = -1, np = -2, nu = -1, v7 = -1, iwww = -1) {
# if(!exists(".dFv", , envir=.GlobalEnv)) dfvals()
# f.res <- .Fortran("dfcomn", ipsi = to.integer(ipsi), c = to.single(c),
# h1 = to.single(h1), h2 = to.single(h2), h3 = to.single(h3),
# xk = to.single(xk), d = to.single(d), beta = to.single(beta),
# bet0 = to.single(bet0), iucv = to.integer(iucv), a2 = to.single(a2),
# b2 = to.single(b2), chk = to.single(chk), ckw = to.single(ckw),
# bb = to.single(bb), bt = to.single(bt), cw = to.single(cw),
# em = to.single(em), cr = to.single(cr), vk = to.single(vk),
# np = to.integer(np), enu = to.single(nu), v7 = to.single(v7),
# iwww = to.integer(iwww))
f.res <- .Fortran("dfcomn2z", ipsi = to.integer(ipsi), c = to.single(c),
h1 = to.single(h1), h2 = to.single(h2), h3 = to.single(h3),
xk = to.single(xk), d = to.single(d), beta = to.single(beta),
bet0 = to.single(bet0), iucv = to.integer(iucv), a2 = to.single(a2),
b2 = to.single(b2), chk = to.single(chk), ckw = to.single(ckw),
bb = to.single(bb), bt = to.single(bt), cw = to.single(cw),
em = to.single(em), cr = to.single(cr), vk = to.single(vk),
np = to.integer(np), enu = to.single(nu), v7 = to.single(v7),
iwww = to.integer(iwww))
z.res <- .Fortran("zdfvals",io=to.integer(0),dfv=single(66))
.def <- z.res$dfv
ccc <- c
if (ccc <= 0) ccc <- 1.345
.def[17] <- ccc
ddd <- d
if (ddd <= 0) ddd <- ccc
.def[61] <- ddd
z.res <- .Fortran("zdfvals",io=to.integer(1),dfv=to.single(.def))
list(ipsi = f.res$ipsi, iucv = f.res$iucv, iwww = f.res$iwww)}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.