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

psblas3:

Browse Source 
base/modules/psb_c_base_mat_mod.f90
 base/modules/psb_c_csc_mat_mod.f90
 base/modules/psb_c_csr_mat_mod.f90
 base/modules/psb_d_base_mat_mod.f90
 base/modules/psb_d_csc_mat_mod.f90
 base/modules/psb_d_csr_mat_mod.f90
 base/modules/psb_s_base_mat_mod.f90
 base/modules/psb_s_csc_mat_mod.f90
 base/modules/psb_s_csr_mat_mod.f90
 base/modules/psb_z_base_mat_mod.f90
 base/modules/psb_z_csc_mat_mod.f90
 base/modules/psb_z_csr_mat_mod.f90


Use psb_size to guard against unallocated ALLOCATABLE components.
This commit is contained in:
Salvatore Filippone
2016-05-31 17:18:49 +00:00
parent 285d5ff296
commit 58059aaa9f
12 changed files with 36 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_c_base_mat_mod.f90
+3 -3
View File
@@ -1752,9 +1752,9 @@ contains
class(psb_c_coo_sparse_mat), intent(in) :: a
integer(psb_long_int_k_) :: res
res = 8 + 1
res = res + (2*psb_sizeof_sp) * size(a%val)
res = res + psb_sizeof_int * size(a%ia)
res = res + psb_sizeof_int * size(a%ja)
res = res + (2*psb_sizeof_sp) * psb_size(a%val)
res = res + psb_sizeof_int * psb_size(a%ia)
res = res + psb_sizeof_int * psb_size(a%ja)
end function c_coo_sizeof
base/modules/psb_c_csc_mat_mod.f90
+3 -3
View File
@@ -521,9 +521,9 @@ contains
class(psb_c_csc_sparse_mat), intent(in) :: a
integer(psb_long_int_k_) :: res
res = 8
res = res + (2*psb_sizeof_sp) * size(a%val)
res = res + psb_sizeof_int * size(a%icp)
res = res + psb_sizeof_int * size(a%ia)
res = res + (2*psb_sizeof_sp) * psb_size(a%val)
res = res + psb_sizeof_int * psb_size(a%icp)
res = res + psb_sizeof_int * psb_size(a%ia)
end function c_csc_sizeof
base/modules/psb_c_csr_mat_mod.f90
+3 -3
View File
@@ -526,9 +526,9 @@ contains
class(psb_c_csr_sparse_mat), intent(in) :: a
integer(psb_long_int_k_) :: res
res = 8
res = res + (2*psb_sizeof_sp) * size(a%val)
res = res + psb_sizeof_int * size(a%irp)
res = res + psb_sizeof_int * size(a%ja)
res = res + (2*psb_sizeof_sp) * psb_size(a%val)
res = res + psb_sizeof_int * psb_size(a%irp)
res = res + psb_sizeof_int * psb_size(a%ja)
end function c_csr_sizeof
base/modules/psb_d_base_mat_mod.f90
+3 -3
View File
@@ -1752,9 +1752,9 @@ contains
class(psb_d_coo_sparse_mat), intent(in) :: a
integer(psb_long_int_k_) :: res
res = 8 + 1
res = res + psb_sizeof_dp * size(a%val)
res = res + psb_sizeof_int * size(a%ia)
res = res + psb_sizeof_int * size(a%ja)
res = res + psb_sizeof_dp * psb_size(a%val)
res = res + psb_sizeof_int * psb_size(a%ia)
res = res + psb_sizeof_int * psb_size(a%ja)
end function d_coo_sizeof
base/modules/psb_d_csc_mat_mod.f90
+3 -3
View File
@@ -521,9 +521,9 @@ contains
class(psb_d_csc_sparse_mat), intent(in) :: a
integer(psb_long_int_k_) :: res
res = 8
res = res + psb_sizeof_dp * size(a%val)
res = res + psb_sizeof_int * size(a%icp)
res = res + psb_sizeof_int * size(a%ia)
res = res + psb_sizeof_dp * psb_size(a%val)
res = res + psb_sizeof_int * psb_size(a%icp)
res = res + psb_sizeof_int * psb_size(a%ia)
end function d_csc_sizeof
base/modules/psb_d_csr_mat_mod.f90
+3 -3
View File
@@ -526,9 +526,9 @@ contains
class(psb_d_csr_sparse_mat), intent(in) :: a
integer(psb_long_int_k_) :: 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_dp * psb_size(a%val)
res = res + psb_sizeof_int * psb_size(a%irp)
res = res + psb_sizeof_int * psb_size(a%ja)
end function d_csr_sizeof
base/modules/psb_s_base_mat_mod.f90
+3 -3
View File
@@ -1752,9 +1752,9 @@ contains
class(psb_s_coo_sparse_mat), intent(in) :: a
integer(psb_long_int_k_) :: res
res = 8 + 1
res = res + psb_sizeof_sp * size(a%val)
res = res + psb_sizeof_int * size(a%ia)
res = res + psb_sizeof_int * size(a%ja)
res = res + psb_sizeof_sp * psb_size(a%val)
res = res + psb_sizeof_int * psb_size(a%ia)
res = res + psb_sizeof_int * psb_size(a%ja)
end function s_coo_sizeof
base/modules/psb_s_csc_mat_mod.f90
+3 -3
View File
@@ -521,9 +521,9 @@ contains
class(psb_s_csc_sparse_mat), intent(in) :: a
integer(psb_long_int_k_) :: res
res = 8
res = res + psb_sizeof_sp * size(a%val)
res = res + psb_sizeof_int * size(a%icp)
res = res + psb_sizeof_int * size(a%ia)
res = res + psb_sizeof_sp * psb_size(a%val)
res = res + psb_sizeof_int * psb_size(a%icp)
res = res + psb_sizeof_int * psb_size(a%ia)
end function s_csc_sizeof
base/modules/psb_s_csr_mat_mod.f90
+3 -3
View File
@@ -526,9 +526,9 @@ contains
class(psb_s_csr_sparse_mat), intent(in) :: a
integer(psb_long_int_k_) :: res
res = 8
res = res + psb_sizeof_sp * size(a%val)
res = res + psb_sizeof_int * size(a%irp)
res = res + psb_sizeof_int * size(a%ja)
res = res + psb_sizeof_sp * psb_size(a%val)
res = res + psb_sizeof_int * psb_size(a%irp)
res = res + psb_sizeof_int * psb_size(a%ja)
end function s_csr_sizeof
base/modules/psb_z_base_mat_mod.f90
+3 -3
View File
@@ -1752,9 +1752,9 @@ contains
class(psb_z_coo_sparse_mat), intent(in) :: a
integer(psb_long_int_k_) :: res
res = 8 + 1
res = res + (2*psb_sizeof_dp) * size(a%val)
res = res + psb_sizeof_int * size(a%ia)
res = res + psb_sizeof_int * size(a%ja)
res = res + (2*psb_sizeof_dp) * psb_size(a%val)
res = res + psb_sizeof_int * psb_size(a%ia)
res = res + psb_sizeof_int * psb_size(a%ja)
end function z_coo_sizeof
base/modules/psb_z_csc_mat_mod.f90
+3 -3
View File
@@ -521,9 +521,9 @@ contains
class(psb_z_csc_sparse_mat), intent(in) :: a
integer(psb_long_int_k_) :: res
res = 8
res = res + (2*psb_sizeof_dp) * size(a%val)
res = res + psb_sizeof_int * size(a%icp)
res = res + psb_sizeof_int * size(a%ia)
res = res + (2*psb_sizeof_dp) * psb_size(a%val)
res = res + psb_sizeof_int * psb_size(a%icp)
res = res + psb_sizeof_int * psb_size(a%ia)
end function z_csc_sizeof
base/modules/psb_z_csr_mat_mod.f90
+3 -3
View File
@@ -526,9 +526,9 @@ contains
class(psb_z_csr_sparse_mat), intent(in) :: a
integer(psb_long_int_k_) :: res
res = 8
res = res + (2*psb_sizeof_dp) * size(a%val)
res = res + psb_sizeof_int * size(a%irp)
res = res + psb_sizeof_int * size(a%ja)
res = res + (2*psb_sizeof_dp) * psb_size(a%val)
res = res + psb_sizeof_int * psb_size(a%irp)
res = res + psb_sizeof_int * psb_size(a%ja)
end function z_csr_sizeof