mod_fisher_matrix_ccs Module Reference
Data Types | |
type | nonzero |
Functions/Subroutines | |
subroutine | allocate_sparse_matrix_storage (UFNZ_CCS, nnz, npar) |
subroutine | deallocate_sparse_matrix_storage (UFNZ_CCS) |
subroutine | ufnz_symmetry_check (KN, nnz, UFNZ, UF) |
subroutine | uf_nonzero_one_pixel (KNSINGF, UFS, UFNZ, nnz) |
subroutine | uf_nonzero (KNSINGF, npixels, UFS, TCCORG, smim, UFNZ, nnz) |
subroutine | solver_init_superlu (KN, nnz, UFNZ, b) |
subroutine | solver_cleanup_superlu (KN, nnz, UFNZ, b) |
subroutine | solver_superlu (KN, nnz, UFNZ, b) |
subroutine | solver_superlu_mt (KN, nnz, UFNZ, b) |
subroutine | solver_viennacl (KN, nnz, UFNZ, b) |
subroutine | solver_mumps (KN, nnz, UFNZ, b) |
subroutine | sparse_solver (iu_main_output, KN, nnz, UFNZ, b, solver_timer) |
Function/Subroutine Documentation
◆ allocate_sparse_matrix_storage()
subroutine mod_fisher_matrix_ccs::allocate_sparse_matrix_storage | ( | type(nonzero), intent(inout) | UFNZ_CCS, |
integer, intent(in) | nnz, | ||
integer, intent(in) | npar | ||
) |
◆ deallocate_sparse_matrix_storage()
subroutine mod_fisher_matrix_ccs::deallocate_sparse_matrix_storage | ( | type(nonzero), intent(inout) | UFNZ_CCS | ) |
◆ solver_cleanup_superlu()
subroutine mod_fisher_matrix_ccs::solver_cleanup_superlu | ( | integer, intent(in) | KN, |
integer, intent(in) | nnz, | ||
type(nonzero), intent(in) | UFNZ, | ||
real*8, dimension(kpar), intent(inout) | b | ||
) |
◆ solver_init_superlu()
subroutine mod_fisher_matrix_ccs::solver_init_superlu | ( | integer, intent(in) | KN, |
integer, intent(in) | nnz, | ||
type(nonzero), intent(in) | UFNZ, | ||
real*8, dimension(kpar), intent(inout) | b | ||
) |
◆ solver_mumps()
subroutine mod_fisher_matrix_ccs::solver_mumps | ( | integer, intent(in) | KN, |
integer, intent(in) | nnz, | ||
type(nonzero), intent(in) | UFNZ, | ||
real*8, dimension(kpar), intent(inout) | b | ||
) |
◆ solver_superlu()
subroutine mod_fisher_matrix_ccs::solver_superlu | ( | integer, intent(in) | KN, |
integer, intent(in) | nnz, | ||
type(nonzero), intent(in) | UFNZ, | ||
real*8, dimension(kpar), intent(inout) | b | ||
) |
◆ solver_superlu_mt()
subroutine mod_fisher_matrix_ccs::solver_superlu_mt | ( | integer, intent(in) | KN, |
integer, intent(in) | nnz, | ||
type(nonzero), intent(in) | UFNZ, | ||
real*8, dimension(kpar), intent(inout) | b | ||
) |
◆ solver_viennacl()
subroutine mod_fisher_matrix_ccs::solver_viennacl | ( | integer, intent(in) | KN, |
integer, intent(in) | nnz, | ||
type(nonzero), intent(in) | UFNZ, | ||
real*8, dimension(kpar), intent(inout) | b | ||
) |
◆ sparse_solver()
subroutine mod_fisher_matrix_ccs::sparse_solver | ( | integer, intent(in) | iu_main_output, |
integer, intent(in) | KN, | ||
integer, intent(in) | nnz, | ||
type(nonzero), intent(in) | UFNZ, | ||
real*8, dimension(kpar), intent(inout) | b, | ||
real, intent(inout) | solver_timer | ||
) |
◆ uf_nonzero()
subroutine mod_fisher_matrix_ccs::uf_nonzero | ( | integer, intent(in) | KNSINGF, |
integer, intent(in) | npixels, | ||
real, dimension(kpars,kpars,kimage), intent(in) | UFS, | ||
real, intent(in) | TCCORG, | ||
real, dimension(kimage,kpars,kimage), intent(in) | smim, | ||
type(nonzero), intent(inout) | UFNZ, | ||
integer, intent(out) | nnz | ||
) |
◆ uf_nonzero_one_pixel()
subroutine mod_fisher_matrix_ccs::uf_nonzero_one_pixel | ( | integer, intent(in) | KNSINGF, |
real, dimension(kpars,kpars), intent(in) | UFS, | ||
type(nonzero), intent(inout) | UFNZ, | ||
integer, intent(out) | nnz | ||
) |
◆ ufnz_symmetry_check()
subroutine mod_fisher_matrix_ccs::ufnz_symmetry_check | ( | integer, intent(in) | KN, |
integer, intent(in) | nnz, | ||
type(nonzero), intent(in) | UFNZ, | ||
real, dimension(kpar,kpar), intent(out) | UF | ||
) |