Previous topic

fem.discrete package

fortran_module extension

Module

Description

fortran_module description $ use omp_lib

Quick access

Routines:simulate_time_series(), simulate_mutations(), continuous_fit_i(), discrete_fit_i(), multiindices(), continuous_fit(), discrete_fit(), num_threads()

Variables

Subroutines and functions

function fortran_module/num_threads()

Return the number of threads that the package can see. If the return value is 1 but there are multiple cpus, then OpenMP is not installed or not properly configured

Return:n [integer]
subroutine fortran_module/multiindices(n, m, degs, n_deg, n_idx, n_idx_by_deg, idx_ptr, idx, stratifier)
Options:
  • n [integer,in,optional/default=len(m)]
  • n_deg [integer,in,optional/default=len(degs)]
Parameters:
  • m (n) [integer,in]
  • degs (n_deg) [integer,in]
  • n_idx [integer,in]
  • n_idx_by_deg (n_deg) [integer,in]
  • idx_ptr (*) [integer,out]
  • idx (*) [integer,out]
  • stratifier (*) [integer,out]
Called from:

simulate_time_series(), simulate_mutations()

subroutine fortran_module/simulate_time_series(w, m_sum, n_s, n, m, l, degs, n_deg, x)

simulate_time_series description

Parameters:
  • w (m_sum,n_s) [real,in]
  • m (n) [integer,in]
  • l [integer,in]
  • degs (n_deg) [integer,in]
  • x (n,l) [integer,out]
Options:
  • m_sum [integer,hide/in,optional/default=shape(w,0)]
  • n_s [integer,hide/in,optional/default=shape(w,1)]
  • n [integer,hide/in,optional/default=len(m)]
  • n_deg [integer,hide/in,optional/default=len(degs)]
Call to:

multiindices()

subroutine fortran_module/simulate_mutations(w, m_sum, n_s, n, m, l, degs, n_deg, x, y)

simulate_mutations description

Parameters:
  • w (m_sum,n_s) [real,in]
  • m (n) [integer,in]
  • l [integer,in]
  • degs (n_deg) [integer,in]
  • x (n,l) [integer,out]
  • y (n,l) [integer,out]
Options:
  • m_sum [integer,hide/in,optional/default=shape(w,0)]
  • n_s [integer,hide/in,optional/default=shape(w,1)]
  • n [integer,hide/in,optional/default=len(m)]
  • n_deg [integer,hide/in,optional/default=len(degs)]
Call to:

multiindices()

subroutine fortran_module/discrete_fit(x, y, n_x, n_y, m_x, m_y, m_y_sum, l, degs, n_deg, x_oh_pinv1, x_oh_pinv2, x_oh_pinv3, x_oh_rank, n_s, iters, overfit, impute, w, disc, iter)
Parameters:
  • x (n_x,l) [integer,in]
  • y (n_y,l) [integer,in]
  • m_x (n_x) [integer,in]
  • m_y (n_y) [integer,in]
  • m_y_sum [integer,in]
  • degs (n_deg) [integer,in]
  • x_oh_pinv1 (l,x_oh_rank) [real,in]
  • x_oh_pinv2 (x_oh_rank) [real,in]
  • x_oh_pinv3 (x_oh_rank,n_s) [real,in]
  • iters [integer,in]
  • overfit [logical,in]
  • impute [logical,in]
  • w (m_y_sum,n_s) [real,out]
  • disc (n_y,iters) [real,out]
  • iter (n_y) [integer,out]
Options:
  • n_x [integer,hide/in,optional/default=shape(x,0)]
  • n_y [integer,hide/in,optional/default=shape(y,0)]
  • l [integer,hide/in,optional/default=shape(x,1)]
  • n_deg [integer,hide/in,optional/default=len(degs)]
  • x_oh_rank [integer,hide/in,optional/default=len(x_oh_pinv2)]
  • n_s [integer,hide/in,optional/default=shape(x_oh_pinv3,1)]
Call to:

discrete_fit_i()

subroutine fortran_module/discrete_fit_i(i1, i2, s, n_idx, y, m_y, l, x_oh_pinv1, x_oh_pinv2, x_oh_pinv3, x_oh_rank, n_s, iters, overfit, impute, w, disc, iter)
Parameters:
  • i1 [integer,in]
  • i2 [integer,in]
  • s (n_idx,l) [integer,in]
  • y (l) [integer,in]
  • m_y [integer,in]
  • x_oh_pinv1 (l,x_oh_rank) [real,in]
  • x_oh_pinv2 (x_oh_rank) [real,in]
  • x_oh_pinv3 (x_oh_rank,n_s) [real,in]
  • iters [integer,in]
  • overfit [logical,in]
  • impute [logical,in]
  • w (m_y,n_s) [real,out]
  • disc (iters) [real,out]
  • iter [integer,out]
Options:
  • n_idx [integer,in,optional/default=shape(s,0)]
  • l [integer,in,optional/default=shape(s,1)]
  • x_oh_rank [integer,in,optional/default=shape(x_oh_pinv1,1)]
  • n_s [integer,in,optional/default=shape(x_oh_pinv3,1)]
Called from:

discrete_fit()

subroutine fortran_module/continuous_fit(x, y, n, l, iters, atol, rtol, impute, w, disc, iter)
Parameters:
  • x (n,l) [real,in]
  • y (n,l) [real,in]
  • iters [integer,in]
  • atol [real,in]
  • rtol [real,in]
  • impute [logical,in]
  • w (n,n) [real,out]
  • disc (n,iters) [real,out]
  • iter (n) [integer,out]
Options:
  • n [integer,hide/in,optional/default=shape(x,0)]
  • l [integer,in,optional/default=shape(x,1)]
Call to:

continuous_fit_i()

subroutine fortran_module/continuous_fit_i(i, x, n, l, x_mean0, symx, cov_x, ipiv, iters, atol, rtol, impute, w, disc, iter)
Parameters:
  • i [integer,in]
  • x (n,l) [real,in]
  • x_mean0 (n,l) [real,in]
  • symx (l) [real,in]
  • cov_x (n,n) [real,in]
  • ipiv (n) [integer,in]
  • iters [integer,in]
  • atol [real,in]
  • rtol [real,in]
  • impute [logical,in]
  • w (n) [real,out]
  • disc (iters) [real,out]
  • iter [integer,out]
Options:
  • n [integer,in,optional/default=shape(x,0)]
  • l [integer,in,optional/default=shape(x,1)]
Called from:

continuous_fit()