R/RcppExports.R

Defines functions cpp_multilayer_field cpp_multilayer cpp_field_gb_ml cpp_field_gb_layer cpp_integrand_gb_layer cpp_integrand_gb_ml cpp_recursive_fresnel cpp_layer_fresnel cpp_field_collection integrand_collection

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

integrand_collection <- function(rt, r2, k0, psi, epsilon, thickness) {
    .Call('_planar_integrand_collection', PACKAGE = 'planar', rt, r2, k0, psi, epsilon, thickness)
}

cpp_field_collection <- function(r2, k0, psi, omega, epsilon, thickness, maxEval, reqAbsError, tol, progress) {
    .Call('_planar_cpp_field_collection', PACKAGE = 'planar', r2, k0, psi, omega, epsilon, thickness, maxEval, reqAbsError, tol, progress)
}

cpp_layer_fresnel <- function(k0, kx, epsilon, thickness) {
    .Call('_planar_cpp_layer_fresnel', PACKAGE = 'planar', k0, kx, epsilon, thickness)
}

cpp_recursive_fresnel <- function(k0, kx, epsilon, thickness, polarisation) {
    .Call('_planar_cpp_recursive_fresnel', PACKAGE = 'planar', k0, kx, epsilon, thickness, polarisation)
}

cpp_integrand_gb_ml <- function(rt, r2, k0, psi, alpha, w0, epsilon, thickness) {
    .Call('_planar_cpp_integrand_gb_ml', PACKAGE = 'planar', rt, r2, k0, psi, alpha, w0, epsilon, thickness)
}

cpp_integrand_gb_layer <- function(rt, r2, ki, psi, alpha, w0, ni, no, nl, d) {
    .Call('_planar_cpp_integrand_gb_layer', PACKAGE = 'planar', rt, r2, ki, psi, alpha, w0, ni, no, nl, d)
}

cpp_field_gb_layer <- function(r2, k0, psi, alpha, w0, epsilon, thickness, maxEval, reqAbsError, tol, progress) {
    .Call('_planar_cpp_field_gb_layer', PACKAGE = 'planar', r2, k0, psi, alpha, w0, epsilon, thickness, maxEval, reqAbsError, tol, progress)
}

cpp_field_gb_ml <- function(r2, k0, psi, alpha, w0, epsilon, thickness, maxEval, reqAbsError, tol, progress) {
    .Call('_planar_cpp_field_gb_ml', PACKAGE = 'planar', r2, k0, psi, alpha, w0, epsilon, thickness, maxEval, reqAbsError, tol, progress)
}

cpp_multilayer <- function(k0, kx, epsilon, thickness, z, psi, intensity) {
    .Call('_planar_cpp_multilayer', PACKAGE = 'planar', k0, kx, epsilon, thickness, z, psi, intensity)
}

cpp_multilayer_field <- function(k0, kx, epsilon, thickness, z, psi) {
    .Call('_planar_cpp_multilayer_field', PACKAGE = 'planar', k0, kx, epsilon, thickness, z, psi)
}
nano-optics/planar documentation built on Feb. 9, 2022, 8:44 p.m.