ICFERST
22-06
Reservoir simulator based on DCVFEM, Dynamic Mesh optimisation and Surface-based modelling
|
Sparsity for the Matrices? More...
Functions/Subroutines | |
subroutine | defining_maxlengths_for_sparsity_matrices (ndim, nphase, totele, u_nloc, cv_nloc, ph_nloc, cv_nonods, mx_nface_p1, mxnele, mx_nct, mx_nc, mx_ncolcmc, mx_ncoldgm_pha, mx_ncolacv, mx_ncolm, mx_ncolph) |
subroutine | get_sparsity_patterns (state, Mdims, Mspars, ndgln, Mdisopt, mx_ncolacv, mx_ncoldgm_pha, mx_nct, mx_nc, mx_ncolcmc, mx_ncolm, mx_ncolph, mx_nface_p1) |
Allocate and obtain the sparsity patterns of the two types of matricies for (momentum + cty) and for energy. More... | |
subroutine | ct_dg_sparsity (mx_nface_p1, totele, cv_nloc, u_nloc, cv_nonods, cv_ndgln, u_ndgln, ncolele, finele, colele, mx_nct, nct, findct, colct) |
subroutine | check_sparsity (u_pha_nonods, cv_pha_nonods, u_nonods, cv_nonods, totele, mx_ncolacv, ncolacv, finacv, colacv, midacv, mxnele, ncolele, midele, finele, colele, mx_ncoldgm_pha, ncoldgm_pha, coldgm_pha, findgm_pha, middgm_pha, mx_nct, ncolct, findct, colct, mx_nc, ncolc, findc, colc, mx_ncolcmc, ncolcmc, findcmc, colcmc, midcmc, mx_ncolm, ncolm, findm, colm, midm) |
subroutine | checksparsity (option_mid, unit, ncol2, nonods, ncol, find, mid, col) |
Sparsity for the Matrices?
subroutine spact::check_sparsity | ( | integer, intent(in) | u_pha_nonods, |
integer, intent(in) | cv_pha_nonods, | ||
integer, intent(in) | u_nonods, | ||
integer, intent(in) | cv_nonods, | ||
integer, intent(in) | totele, | ||
integer, intent(in) | mx_ncolacv, | ||
integer, intent(in) | ncolacv, | ||
integer, dimension( cv_pha_nonods + 1 ), intent(in) | finacv, | ||
integer, dimension( mx_ncolacv ), intent(in) | colacv, | ||
integer, dimension( cv_pha_nonods ), intent(in) | midacv, | ||
integer, intent(in) | mxnele, | ||
integer, intent(in) | ncolele, | ||
integer, dimension( totele ), intent(in) | midele, | ||
integer, dimension( totele + 1 ), intent(in) | finele, | ||
integer, dimension( mxnele ), intent(in) | colele, | ||
integer, intent(in) | mx_ncoldgm_pha, | ||
integer, intent(in) | ncoldgm_pha, | ||
integer, dimension( mx_ncoldgm_pha ), intent(in) | coldgm_pha, | ||
integer, dimension( u_pha_nonods + 1 ), intent(in) | findgm_pha, | ||
integer, dimension( u_pha_nonods ), intent(in) | middgm_pha, | ||
integer, intent(in) | mx_nct, | ||
integer, intent(in) | ncolct, | ||
integer, dimension( cv_nonods + 1 ), intent(in) | findct, | ||
integer, dimension( mx_nct ), intent(in) | colct, | ||
integer, intent(in) | mx_nc, | ||
integer, intent(in) | ncolc, | ||
integer, dimension( u_nonods + 1 ), intent(in) | findc, | ||
integer, dimension( mx_nc ), intent(in) | colc, | ||
integer, intent(in) | mx_ncolcmc, | ||
integer, intent(in) | ncolcmc, | ||
integer, dimension( cv_nonods + 1 ), intent(in) | findcmc, | ||
integer, dimension( mx_ncolcmc ), intent(in) | colcmc, | ||
integer, dimension( cv_nonods ), intent(in) | midcmc, | ||
integer, intent(in) | mx_ncolm, | ||
integer, intent(in) | ncolm, | ||
integer, dimension( cv_nonods + 1 ), intent(in) | findm, | ||
integer, dimension( ncolm ), intent(in) | colm, | ||
integer, dimension( cv_nonods ), intent(in) | midm | ||
) |
subroutine spact::checksparsity | ( | logical, intent(in) | option_mid, |
integer, intent(in) | unit, | ||
integer, intent(in) | ncol2, | ||
integer, intent(in) | nonods, | ||
integer, intent(in) | ncol, | ||
integer, dimension( nonods + 1 ), intent(in) | find, | ||
integer, dimension( nonods ), intent(in) | mid, | ||
integer, dimension( ncol ), intent(in) | col | ||
) |
subroutine spact::ct_dg_sparsity | ( | integer, intent(in) | mx_nface_p1, |
integer, intent(in) | totele, | ||
integer, intent(in) | cv_nloc, | ||
integer, intent(in) | u_nloc, | ||
integer, intent(in) | cv_nonods, | ||
integer, dimension( totele * cv_nloc ), intent(in) | cv_ndgln, | ||
integer, dimension( totele * u_nloc ), intent(in) | u_ndgln, | ||
integer, intent(in) | ncolele, | ||
integer, dimension( totele + 1 ), intent(in) | finele, | ||
integer, dimension( ncolele ), intent(in) | colele, | ||
integer, intent(in) | mx_nct, | ||
integer, intent(inout) | nct, | ||
integer, dimension( cv_nonods + 1 ), intent(inout) | findct, | ||
integer, dimension( mx_nct ), intent(inout) | colct | ||
) |
subroutine spact::defining_maxlengths_for_sparsity_matrices | ( | integer, intent(in) | ndim, |
integer, intent(in) | nphase, | ||
integer, intent(in) | totele, | ||
integer, intent(in) | u_nloc, | ||
integer, intent(in) | cv_nloc, | ||
integer, intent(in) | ph_nloc, | ||
integer, intent(in) | cv_nonods, | ||
integer, intent(inout) | mx_nface_p1, | ||
integer, intent(inout) | mxnele, | ||
integer, intent(inout) | mx_nct, | ||
integer, intent(inout) | mx_nc, | ||
integer, intent(inout) | mx_ncolcmc, | ||
integer, intent(inout) | mx_ncoldgm_pha, | ||
integer, intent(inout) | mx_ncolacv, | ||
integer, intent(inout) | mx_ncolm, | ||
integer, intent(inout) | mx_ncolph | ||
) |
subroutine spact::get_sparsity_patterns | ( | type( state_type ), dimension( : ), intent(inout) | state, |
type(multi_dimensions), intent(inout) | Mdims, | ||
type (multi_sparsities), intent(inout) | Mspars, | ||
type(multi_ndgln), intent(in) | ndgln, | ||
type (multi_discretization_opts) | Mdisopt, | ||
integer, intent(in) | mx_ncolacv, | ||
integer, intent(in) | mx_ncoldgm_pha, | ||
integer, intent(in) | mx_nct, | ||
integer, intent(in) | mx_nc, | ||
integer, intent(in) | mx_ncolcmc, | ||
integer, intent(in) | mx_ncolm, | ||
integer, intent(in) | mx_ncolph, | ||
integer, intent(in) | mx_nface_p1 | ||
) |
Allocate and obtain the sparsity patterns of the two types of matricies for (momentum + cty) and for energy.