fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Added support for CSC matrices in c interfaces

Browse Source
remap-coarse
Fabio Durastante 2 months ago
parent 0a97ea2924
commit 116219b6fe
4 changed files with 24 additions and 4 deletions
Show Stats Download Patch File Download Diff File

7
cbind/base/psb_c_tools_cbind_mod.F90
Unescape Escape View File

@ -440,6 +440,7 @@ contains
#endif
type(psb_c_ell_sparse_mat), target :: aell
type(psb_c_csr_sparse_mat), target :: acsr
type(psb_c_csc_sparse_mat), target :: acsc
type(psb_c_coo_sparse_mat), target :: acoo
type(psb_c_hll_sparse_mat), target :: ahll
type(psb_c_hdia_sparse_mat), target :: ahdia
@ -484,6 +485,8 @@ contains
amold => ahll
case('CSR')
amold => acsr
case('CSC')
amold => acsc
case('DNS')
amold => adns
case default
@ -498,6 +501,8 @@ contains
amold => ahdia
case('CSR')
amold => acsr
case('CSC')
amold => acsc
case('DNS')
amold => adns
case default
@ -514,7 +519,7 @@ contains
& upd=upd,mold=arsb)
#endif
#endif
case('ELL','HLL','CSR','DNS')
case('ELL','HLL','CSR','DNS','CSC')
call psb_spasb(ap,descp,info,upd=upd,mold=amold)
#if defined(PSB_HAVE_CUDA)
case('ELG','HLG','CSRG')

7
cbind/base/psb_d_tools_cbind_mod.F90
Unescape Escape View File

@ -440,6 +440,7 @@ contains
#endif
type(psb_d_ell_sparse_mat), target :: aell
type(psb_d_csr_sparse_mat), target :: acsr
type(psb_d_csc_sparse_mat), target :: acsc
type(psb_d_coo_sparse_mat), target :: acoo
type(psb_d_hll_sparse_mat), target :: ahll
type(psb_d_hdia_sparse_mat), target :: ahdia
@ -489,6 +490,8 @@ contains
amold => ahdia
case('CSR')
amold => acsr
case('CSC')
amold => acsc
case('DNS')
amold => adns
case default
@ -504,6 +507,8 @@ contains
amold => ahdia
case('CSR')
amold => acsr
case('CSC')
amold => acsc
case('DNS')
amold => adns
case default
@ -520,7 +525,7 @@ contains
& upd=upd,mold=arsb)
#endif
#endif
case('ELL','HLL','CSR','DNS')
case('ELL','HLL','CSR','DNS','CSC')
call psb_spasb(ap,descp,info,upd=upd,mold=amold)
case('HDIA')
call psb_spasb(ap,descp,info,upd=upd,mold=amold)

7
cbind/base/psb_s_tools_cbind_mod.F90
Unescape Escape View File

@ -440,6 +440,7 @@ contains
#endif
type(psb_s_ell_sparse_mat), target :: aell
type(psb_s_csr_sparse_mat), target :: acsr
type(psb_s_csc_sparse_mat), target :: acsc
type(psb_s_coo_sparse_mat), target :: acoo
type(psb_s_hll_sparse_mat), target :: ahll
type(psb_s_hdia_sparse_mat), target :: ahdia
@ -489,6 +490,8 @@ contains
amold => ahdia
case('CSR')
amold => acsr
case('CSC')
amold => acsc
case('DNS')
amold => adns
case default
@ -504,6 +507,8 @@ contains
amold => ahdia
case('CSR')
amold => acsr
case('CSC')
amold => acsc
case('DNS')
amold => adns
case default
@ -520,7 +525,7 @@ contains
& upd=upd,mold=arsb)
#endif
#endif
case('ELL','HLL','CSR','DNS')
case('ELL','HLL','CSR','DNS','CSC')
call psb_spasb(ap,descp,info,upd=upd,mold=amold)
case('HDIA')
call psb_spasb(ap,descp,info,upd=upd,mold=amold)

7
cbind/base/psb_z_tools_cbind_mod.F90
Unescape Escape View File

@ -440,6 +440,7 @@ contains
#endif
type(psb_z_ell_sparse_mat), target :: aell
type(psb_z_csr_sparse_mat), target :: acsr
type(psb_z_csc_sparse_mat), target :: acsc
type(psb_z_coo_sparse_mat), target :: acoo
type(psb_z_hll_sparse_mat), target :: ahll
type(psb_z_hdia_sparse_mat), target :: ahdia
@ -484,6 +485,8 @@ contains
amold => ahll
case('CSR')
amold => acsr
case('CSC')
amold => acsc
case('DNS')
amold => adns
case default
@ -498,6 +501,8 @@ contains
amold => ahdia
case('CSR')
amold => acsr
case('CSC')
amold => acsc
case('DNS')
amold => adns
case default
@ -514,7 +519,7 @@ contains
& upd=upd,mold=arsb)
#endif
#endif
case('ELL','HLL','CSR','DNS')
case('ELL','HLL','CSR','DNS','CSC')
call psb_spasb(ap,descp,info,upd=upd,mold=amold)
#if defined(PSB_HAVE_CUDA)
case('ELG','HLG','CSRG')

Write Preview
Loading…
Cancel
Save