fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
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
This commit is contained in:
Salvatore Filippone
2012-03-16 13:47:04 +00:00
parent 1090b136dd
commit 205d2af765
8 changed files with 16 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_c_csc_mat_mod.f90
+2 -6
View File
@@ -551,14 +551,10 @@ contains
class(psb_c_csc_sparse_mat), intent(in) :: a
integer(psb_ipk_) :: res
res = 0
res = -1
if (allocated(a%ia)) then
if (res >= 0) then
res = min(res,size(a%ia))
else
res = size(a%ia)
end if
res = size(a%ia)
end if
if (allocated(a%val)) then
if (res >= 0) then
base/modules/psb_c_csr_mat_mod.f90
+2 -6
View File
@@ -554,14 +554,10 @@ contains
class(psb_c_csr_sparse_mat), intent(in) :: a
integer(psb_ipk_) :: res
res = 0
res = -1
if (allocated(a%ja)) then
if (res >= 0) then
res = min(res,size(a%ja))
else
res = size(a%ja)
end if
res = size(a%ja)
end if
if (allocated(a%val)) then
if (res >= 0) then
base/modules/psb_d_csc_mat_mod.f90
+2 -6
View File
@@ -551,14 +551,10 @@ contains
class(psb_d_csc_sparse_mat), intent(in) :: a
integer(psb_ipk_) :: res
res = 0
res = -1
if (allocated(a%ia)) then
if (res >= 0) then
res = min(res,size(a%ia))
else
res = size(a%ia)
end if
res = size(a%ia)
end if
if (allocated(a%val)) then
if (res >= 0) then
base/modules/psb_d_csr_mat_mod.f90
+2 -6
View File
@@ -554,14 +554,10 @@ contains
class(psb_d_csr_sparse_mat), intent(in) :: a
integer(psb_ipk_) :: res
res = 0
res = -1
if (allocated(a%ja)) then
if (res >= 0) then
res = min(res,size(a%ja))
else
res = size(a%ja)
end if
res = size(a%ja)
end if
if (allocated(a%val)) then
if (res >= 0) then
base/modules/psb_s_csc_mat_mod.f90
+2 -6
View File
@@ -551,14 +551,10 @@ contains
class(psb_s_csc_sparse_mat), intent(in) :: a
integer(psb_ipk_) :: res
res = 0
res = -1
if (allocated(a%ia)) then
if (res >= 0) then
res = min(res,size(a%ia))
else
res = size(a%ia)
end if
res = size(a%ia)
end if
if (allocated(a%val)) then
if (res >= 0) then
base/modules/psb_s_csr_mat_mod.f90
+2 -6
View File
@@ -554,14 +554,10 @@ contains
class(psb_s_csr_sparse_mat), intent(in) :: a
integer(psb_ipk_) :: res
res = 0
res = -1
if (allocated(a%ja)) then
if (res >= 0) then
res = min(res,size(a%ja))
else
res = size(a%ja)
end if
res = size(a%ja)
end if
if (allocated(a%val)) then
if (res >= 0) then
base/modules/psb_z_csc_mat_mod.f90
+2 -6
View File
@@ -551,14 +551,10 @@ contains
class(psb_z_csc_sparse_mat), intent(in) :: a
integer(psb_ipk_) :: res
res = 0
res = -1
if (allocated(a%ia)) then
if (res >= 0) then
res = min(res,size(a%ia))
else
res = size(a%ia)
end if
res = size(a%ia)
end if
if (allocated(a%val)) then
if (res >= 0) then
base/modules/psb_z_csr_mat_mod.f90
+2 -6
View File
@@ -554,14 +554,10 @@ contains
class(psb_z_csr_sparse_mat), intent(in) :: a
integer(psb_ipk_) :: res
res = 0
res = -1
if (allocated(a%ja)) then
if (res >= 0) then
res = min(res,size(a%ja))
else
res = size(a%ja)
end if
res = size(a%ja)
end if
if (allocated(a%val)) then
if (res >= 0) then