psblas3:

base/modules/psb_base_tools_mod.f90 base/tools/psb_cdcpy.f90 Recover intent(out) on cdcpy. Should we change cdfree???
14 years ago · 2cb5d704da
parent 0b97a63013
commit 2cb5d704da
2 changed files with 2 additions and 2 deletions
--- a/base/modules/psb_base_tools_mod.f90
+++ b/base/modules/psb_base_tools_mod.f90
@ -341,7 +341,7 @@ module psb_cd_if_tools_mod
      !....parameters...

      type(psb_desc_type), intent(in)  :: desc_in
-      type(psb_desc_type), intent(inout) :: desc_out
+      type(psb_desc_type), intent(out) :: desc_out
      integer, intent(out)             :: info
    end subroutine psb_cdcpy
  end interface
--- a/base/tools/psb_cdcpy.f90
+++ b/base/tools/psb_cdcpy.f90
@ -45,7 +45,7 @@ subroutine psb_cdcpy(desc_in, desc_out, info)
  !....parameters...

  type(psb_desc_type), intent(in)  :: desc_in
-  type(psb_desc_type), intent(inout) :: desc_out
+  type(psb_desc_type), intent(out) :: desc_out
  integer, intent(out)             :: info

  !locals