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)

Parameters:

• n [integer,in,]
• m (n) [integer,in]
• degs (n_deg) [integer,in]
• 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_sum [integer,hide/in,]
• n_s [integer,hide/in,]
• n [integer,hide/in,]
• m (n) [integer,in]
• l [integer,in]
• degs (n_deg) [integer,in]
• n_deg [integer,hide/in,]
• x (n,l) [integer,out]

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_sum [integer,hide/in,]
• n_s [integer,hide/in,]
• n [integer,hide/in,]
• m (n) [integer,in]
• l [integer,in]
• degs (n_deg) [integer,in]
• n_deg [integer,hide/in,]
• x (n,l) [integer,out]
• y (n,l) [integer,out]

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]
• n_x [integer,hide/in,]
• n_y [integer,hide/in,]
• m_x (n_x) [integer,in]
• m_y (n_y) [integer,in]
• m_y_sum [integer,in]
• l [integer,hide/in,]
• degs (n_deg) [integer,in]
• n_deg [integer,hide/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]
• x_oh_rank [integer,hide/in,]
• n_s [integer,hide/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]

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]
• n_idx [integer,in,]
• y (l) [integer,in]
• m_y [integer,in]
• l [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]
• x_oh_rank [integer,in,]
• n_s [integer,in,]
• iters [integer,in]
• overfit [logical,in]
• impute [logical,in]
• w (m_y,n_s) [real,out]
• disc (iters) [real,out]
• iter [integer,out]

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]
• n [integer,hide/in,]
• l [integer,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]

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]
• n [integer,in,]
• l [integer,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]

Called from:

continuous_fit()