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

psblas3:

Browse Source 
Fixed TRANSP intent.
This commit is contained in:
Salvatore Filippone
2011-11-04 16:29:38 +00:00
parent 61adee3c4c
commit deefb05a2b
1 changed files with 24 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_base_mat_mod.f90
+24 -14
View File
@@ -538,28 +538,38 @@ contains
subroutine psb_base_transp_2mat(a,b)
implicit none
class(psb_base_sparse_mat), intent(out) :: a
class(psb_base_sparse_mat), intent(in) :: b
class(psb_base_sparse_mat), intent(in) :: a
class(psb_base_sparse_mat), intent(out) :: b
a%m = b%n
a%n = b%m
a%state = b%state
a%duplicate = b%duplicate
a%triangle = b%triangle
a%unitd = b%unitd
a%upper = .not.b%upper
a%sorted = .false.
a%aux(:) = b%aux(:)
b%m = a%n
b%n = a%m
b%state = a%state
b%duplicate = a%duplicate
b%triangle = a%triangle
b%unitd = a%unitd
b%upper = .not.a%upper
b%sorted = .false.
b%aux(:) = a%aux(:)
end subroutine psb_base_transp_2mat
subroutine psb_base_transc_2mat(a,b)
implicit none
class(psb_base_sparse_mat), intent(out) :: a
class(psb_base_sparse_mat), intent(in) :: b
class(psb_base_sparse_mat), intent(in) :: a
class(psb_base_sparse_mat), intent(out) :: b
b%m = a%n
b%n = a%m
b%state = a%state
b%duplicate = a%duplicate
b%triangle = a%triangle
b%unitd = a%unitd
b%upper = .not.a%upper
b%sorted = .false.
b%aux(:) = a%aux(:)
call a%transp(b)
end subroutine psb_base_transc_2mat
subroutine psb_base_transp_1mat(a)