From deefb05a2b7b637026156a570ab676f6fd12b7d7 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 4 Nov 2011 16:29:38 +0000 Subject: [PATCH] psblas3: Fixed TRANSP intent. --- base/modules/psb_base_mat_mod.f90 | 38 +++++++++++++++++++------------ 1 file changed, 24 insertions(+), 14 deletions(-) diff --git a/base/modules/psb_base_mat_mod.f90 b/base/modules/psb_base_mat_mod.f90 index 574575d2..44a76262 100644 --- a/base/modules/psb_base_mat_mod.f90 +++ b/base/modules/psb_base_mat_mod.f90 @@ -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)