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 
)