fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-07 07:04:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merged MixedI8 in new branch (to be later merged into development)

Browse Source
This commit is contained in:
Salvatore Filippone
2018-12-10 11:42:40 +00:00
parent 5371e39c16
commit 8d489f8ce2
921 changed files with 172036 additions and 57462 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/serial/d_matgen.F90
+1 -1
View File
@@ -381,7 +381,7 @@ program d_matgen
! solver parameters
integer(psb_ipk_) :: iter, itmax,itrace, istopc, irst
integer(psb_long_int_k_) :: amatsize, precsize, descsize
integer(psb_epk_) :: amatsize, precsize, descsize
real(psb_dpk_) :: err, eps
type(psb_d_csr_sparse_mat) :: acsr
type(psb_d_xyz_sparse_mat) :: axyz
test/serial/psb_d_xyz_mat_mod.f90
+4 -4
View File
@@ -137,7 +137,7 @@ module psb_d_xyz_mat_mod
!| \see psb_base_mat_mod::psb_base_mold
interface
subroutine psb_d_xyz_mold(a,b,info)
import :: psb_ipk_, psb_d_xyz_sparse_mat, psb_d_base_sparse_mat, psb_long_int_k_
import :: psb_ipk_, psb_d_xyz_sparse_mat, psb_d_base_sparse_mat, psb_epk_
class(psb_d_xyz_sparse_mat), intent(in) :: a
class(psb_d_base_sparse_mat), intent(inout), allocatable :: b
integer(psb_ipk_), intent(out) :: info
@@ -531,11 +531,11 @@ contains
function d_xyz_sizeof(a) result(res)
implicit none
class(psb_d_xyz_sparse_mat), intent(in) :: a
integer(psb_long_int_k_) :: res
integer(psb_epk_) :: res
res = 8
res = res + psb_sizeof_dp * size(a%val)
res = res + psb_sizeof_int * size(a%irp)
res = res + psb_sizeof_int * size(a%ja)
res = res + psb_sizeof_ip * size(a%irp)
res = res + psb_sizeof_ip * size(a%ja)
end function d_xyz_sizeof