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

psblas3:

Browse Source 
base/modules/psb_c_csc_mat_mod.f90
 base/modules/psb_c_csr_mat_mod.f90
 base/modules/psb_d_csc_mat_mod.f90
 base/modules/psb_d_csr_mat_mod.f90
 base/modules/psb_s_csc_mat_mod.f90
 base/modules/psb_s_csr_mat_mod.f90
 base/modules/psb_z_csc_mat_mod.f90
 base/modules/psb_z_csr_mat_mod.f90

Silly bug in get_size
psblas-3.0-maint
Salvatore Filippone 13 years ago
parent 1090b136dd
commit 205d2af765
8 changed files with 16 additions and 48 deletions
Show Stats Download Patch File Download Diff File

6
base/modules/psb_c_csc_mat_mod.f90
Unescape Escape View File

@ -551,15 +551,11 @@ contains
class(psb_c_csc_sparse_mat), intent(in) :: a class(psb_c_csc_sparse_mat), intent(in) :: a
integer(psb_ipk_) :: res integer(psb_ipk_) :: res
res = 0 res = -1
if (allocated(a%ia)) then if (allocated(a%ia)) then
if (res >= 0) then
res = min(res,size(a%ia))
else
res = size(a%ia) res = size(a%ia)
end if end if
end if
if (allocated(a%val)) then if (allocated(a%val)) then
if (res >= 0) then if (res >= 0) then
res = min(res,size(a%val)) res = min(res,size(a%val))

6
base/modules/psb_c_csr_mat_mod.f90
Unescape Escape View File

@ -554,15 +554,11 @@ contains
class(psb_c_csr_sparse_mat), intent(in) :: a class(psb_c_csr_sparse_mat), intent(in) :: a
integer(psb_ipk_) :: res integer(psb_ipk_) :: res
res = 0 res = -1
if (allocated(a%ja)) then if (allocated(a%ja)) then
if (res >= 0) then
res = min(res,size(a%ja))
else
res = size(a%ja) res = size(a%ja)
end if end if
end if
if (allocated(a%val)) then if (allocated(a%val)) then
if (res >= 0) then if (res >= 0) then
res = min(res,size(a%val)) res = min(res,size(a%val))

6
base/modules/psb_d_csc_mat_mod.f90
Unescape Escape View File

@ -551,15 +551,11 @@ contains
class(psb_d_csc_sparse_mat), intent(in) :: a class(psb_d_csc_sparse_mat), intent(in) :: a
integer(psb_ipk_) :: res integer(psb_ipk_) :: res
res = 0 res = -1
if (allocated(a%ia)) then if (allocated(a%ia)) then
if (res >= 0) then
res = min(res,size(a%ia))
else
res = size(a%ia) res = size(a%ia)
end if end if
end if
if (allocated(a%val)) then if (allocated(a%val)) then
if (res >= 0) then if (res >= 0) then
res = min(res,size(a%val)) res = min(res,size(a%val))

6
base/modules/psb_d_csr_mat_mod.f90
Unescape Escape View File

@ -554,15 +554,11 @@ contains
class(psb_d_csr_sparse_mat), intent(in) :: a class(psb_d_csr_sparse_mat), intent(in) :: a
integer(psb_ipk_) :: res integer(psb_ipk_) :: res
res = 0 res = -1
if (allocated(a%ja)) then if (allocated(a%ja)) then
if (res >= 0) then
res = min(res,size(a%ja))
else
res = size(a%ja) res = size(a%ja)
end if end if
end if
if (allocated(a%val)) then if (allocated(a%val)) then
if (res >= 0) then if (res >= 0) then
res = min(res,size(a%val)) res = min(res,size(a%val))

6
base/modules/psb_s_csc_mat_mod.f90
Unescape Escape View File

@ -551,15 +551,11 @@ contains
class(psb_s_csc_sparse_mat), intent(in) :: a class(psb_s_csc_sparse_mat), intent(in) :: a
integer(psb_ipk_) :: res integer(psb_ipk_) :: res
res = 0 res = -1
if (allocated(a%ia)) then if (allocated(a%ia)) then
if (res >= 0) then
res = min(res,size(a%ia))
else
res = size(a%ia) res = size(a%ia)
end if end if
end if
if (allocated(a%val)) then if (allocated(a%val)) then
if (res >= 0) then if (res >= 0) then
res = min(res,size(a%val)) res = min(res,size(a%val))

6
base/modules/psb_s_csr_mat_mod.f90
Unescape Escape View File

@ -554,15 +554,11 @@ contains
class(psb_s_csr_sparse_mat), intent(in) :: a class(psb_s_csr_sparse_mat), intent(in) :: a
integer(psb_ipk_) :: res integer(psb_ipk_) :: res
res = 0 res = -1
if (allocated(a%ja)) then if (allocated(a%ja)) then
if (res >= 0) then
res = min(res,size(a%ja))
else
res = size(a%ja) res = size(a%ja)
end if end if
end if
if (allocated(a%val)) then if (allocated(a%val)) then
if (res >= 0) then if (res >= 0) then
res = min(res,size(a%val)) res = min(res,size(a%val))

6
base/modules/psb_z_csc_mat_mod.f90
Unescape Escape View File

@ -551,15 +551,11 @@ contains
class(psb_z_csc_sparse_mat), intent(in) :: a class(psb_z_csc_sparse_mat), intent(in) :: a
integer(psb_ipk_) :: res integer(psb_ipk_) :: res
res = 0 res = -1
if (allocated(a%ia)) then if (allocated(a%ia)) then
if (res >= 0) then
res = min(res,size(a%ia))
else
res = size(a%ia) res = size(a%ia)
end if end if
end if
if (allocated(a%val)) then if (allocated(a%val)) then
if (res >= 0) then if (res >= 0) then
res = min(res,size(a%val)) res = min(res,size(a%val))

6
base/modules/psb_z_csr_mat_mod.f90
Unescape Escape View File

@ -554,15 +554,11 @@ contains
class(psb_z_csr_sparse_mat), intent(in) :: a class(psb_z_csr_sparse_mat), intent(in) :: a
integer(psb_ipk_) :: res integer(psb_ipk_) :: res
res = 0 res = -1
if (allocated(a%ja)) then if (allocated(a%ja)) then
if (res >= 0) then
res = min(res,size(a%ja))
else
res = size(a%ja) res = size(a%ja)
end if end if
end if
if (allocated(a%val)) then if (allocated(a%val)) then
if (res >= 0) then if (res >= 0) then
res = min(res,size(a%val)) res = min(res,size(a%val))

Write Preview
Loading…
Cancel
Save