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

psblas3:

Browse Source 
base/serial/impl/psb_c_base_mat_impl.F90
 base/serial/impl/psb_c_mat_impl.F90
 base/serial/impl/psb_d_base_mat_impl.F90
 base/serial/impl/psb_d_mat_impl.F90
 base/serial/impl/psb_s_base_mat_impl.F90
 base/serial/impl/psb_s_mat_impl.F90
 base/serial/impl/psb_z_base_mat_impl.F90
 base/serial/impl/psb_z_mat_impl.F90


Fixed silly bug
This commit is contained in:
Salvatore Filippone
2013-10-09 17:28:39 +00:00
parent f5b7317a38
commit c7c0251359
8 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_base_mat_impl.F90
+2
View File
@@ -636,6 +636,7 @@ subroutine psb_c_base_tril(a,b,info,&
& nzin=nzin)
if (info /= psb_success_) goto 9999
call b%set_nzeros(nzin+nzout)
nzin = nzin+nzout
end do
call b%fix(info)
nzout = b%get_nzeros()
@@ -745,6 +746,7 @@ subroutine psb_c_base_triu(a,b,info,&
& nzin=nzin)
if (info /= psb_success_) goto 9999
call b%set_nzeros(nzin+nzout)
nzin = nzin+nzout
end do
call b%fix(info)
nzout = b%get_nzeros()
base/serial/impl/psb_c_mat_impl.F90
+1 -1
View File
@@ -1025,7 +1025,7 @@ subroutine psb_c_triu(a,b,info,diag,imin,imax,&
allocate(acoo,stat=info)
if (info == psb_success_) then
call a%a%tril(acoo,info,diag,imin,imax,&
call a%a%triu(acoo,info,diag,imin,imax,&
& jmin,jmax,rscale,cscale)
else
info = psb_err_alloc_dealloc_
base/serial/impl/psb_d_base_mat_impl.F90
+2
View File
@@ -636,6 +636,7 @@ subroutine psb_d_base_tril(a,b,info,&
& nzin=nzin)
if (info /= psb_success_) goto 9999
call b%set_nzeros(nzin+nzout)
nzin = nzin+nzout
end do
call b%fix(info)
nzout = b%get_nzeros()
@@ -745,6 +746,7 @@ subroutine psb_d_base_triu(a,b,info,&
& nzin=nzin)
if (info /= psb_success_) goto 9999
call b%set_nzeros(nzin+nzout)
nzin = nzin+nzout
end do
call b%fix(info)
nzout = b%get_nzeros()
base/serial/impl/psb_d_mat_impl.F90
+1 -1
View File
@@ -1025,7 +1025,7 @@ subroutine psb_d_triu(a,b,info,diag,imin,imax,&
allocate(acoo,stat=info)
if (info == psb_success_) then
call a%a%tril(acoo,info,diag,imin,imax,&
call a%a%triu(acoo,info,diag,imin,imax,&
& jmin,jmax,rscale,cscale)
else
info = psb_err_alloc_dealloc_
base/serial/impl/psb_s_base_mat_impl.F90
+2
View File
@@ -636,6 +636,7 @@ subroutine psb_s_base_tril(a,b,info,&
& nzin=nzin)
if (info /= psb_success_) goto 9999
call b%set_nzeros(nzin+nzout)
nzin = nzin+nzout
end do
call b%fix(info)
nzout = b%get_nzeros()
@@ -745,6 +746,7 @@ subroutine psb_s_base_triu(a,b,info,&
& nzin=nzin)
if (info /= psb_success_) goto 9999
call b%set_nzeros(nzin+nzout)
nzin = nzin+nzout
end do
call b%fix(info)
nzout = b%get_nzeros()
base/serial/impl/psb_s_mat_impl.F90
+1 -1
View File
@@ -1025,7 +1025,7 @@ subroutine psb_s_triu(a,b,info,diag,imin,imax,&
allocate(acoo,stat=info)
if (info == psb_success_) then
call a%a%tril(acoo,info,diag,imin,imax,&
call a%a%triu(acoo,info,diag,imin,imax,&
& jmin,jmax,rscale,cscale)
else
info = psb_err_alloc_dealloc_
base/serial/impl/psb_z_base_mat_impl.F90
+2
View File
@@ -636,6 +636,7 @@ subroutine psb_z_base_tril(a,b,info,&
& nzin=nzin)
if (info /= psb_success_) goto 9999
call b%set_nzeros(nzin+nzout)
nzin = nzin+nzout
end do
call b%fix(info)
nzout = b%get_nzeros()
@@ -745,6 +746,7 @@ subroutine psb_z_base_triu(a,b,info,&
& nzin=nzin)
if (info /= psb_success_) goto 9999
call b%set_nzeros(nzin+nzout)
nzin = nzin+nzout
end do
call b%fix(info)
nzout = b%get_nzeros()
base/serial/impl/psb_z_mat_impl.F90
+1 -1
View File
@@ -1025,7 +1025,7 @@ subroutine psb_z_triu(a,b,info,diag,imin,imax,&
allocate(acoo,stat=info)
if (info == psb_success_) then
call a%a%tril(acoo,info,diag,imin,imax,&
call a%a%triu(acoo,info,diag,imin,imax,&
& jmin,jmax,rscale,cscale)
else
info = psb_err_alloc_dealloc_