![]() |
SPEED
|
Go to the source code of this file.
Functions/Subroutines | |
subroutine | make_spx_con_loc (nel_loc, nel, el_dom, nnz, cs, nnz_loc, cs_loc, nm, tag_mat, sdeg_mat, mpi_id) |
Makes local connectivity vector. | |
subroutine make_spx_con_loc | ( | integer*4 | nel_loc, |
integer*4 | nel, | ||
integer*4, dimension(nel) | el_dom, | ||
integer*4 | nnz, | ||
integer*4, dimension(0:nnz) | cs, | ||
integer*4 | nnz_loc, | ||
integer*4, dimension(0:nnz_loc) | cs_loc, | ||
integer*4 | nm, | ||
integer*4, dimension(nm) | tag_mat, | ||
integer*4, dimension(nm) | sdeg_mat, | ||
integer*4 | mpi_id | ||
) |
Makes local connectivity vector.
[in] | nel_loc | number of local elements |
[in] | nel | number of total elements |
[in] | el_dom | metis output (el_dom(i) = k --> element i belongs to mpi process k) |
[in] | tag_mat | material label |
[in] | sdeg_mat | polynomial degree vector |
[in] | mpi_id | mpi process id |
[out] | cs_loc | local spectral connectivity vector |
Definition at line 31 of file MAKE_SPX_CON_LOC.f90.