From e05923525735c4b4d11d5f6aa61bb8826f915822 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 30 Nov 2007 12:41:55 +0000 Subject: [PATCH] Fixed intent out on cdovr (aka bld_ext) --- base/modules/psb_tools_mod.f90 | 24 ++++++++++++------------ base/tools/psb_dcdovr.F90 | 12 ++++++------ base/tools/psb_zcdovr.F90 | 12 ++++++------ 3 files changed, 24 insertions(+), 24 deletions(-) diff --git a/base/modules/psb_tools_mod.f90 b/base/modules/psb_tools_mod.f90 index ca7a7af4..d2b4de81 100644 --- a/base/modules/psb_tools_mod.f90 +++ b/base/modules/psb_tools_mod.f90 @@ -337,22 +337,22 @@ Module psb_tools_mod Subroutine psb_dcdovr(a,desc_a,novr,desc_ov,info,extype) use psb_descriptor_type Use psb_spmat_type - integer, intent(in) :: novr - Type(psb_dspmat_type), Intent(in) :: a - Type(psb_desc_type), Intent(in) :: desc_a - Type(psb_desc_type), Intent(inout) :: desc_ov - integer, intent(out) :: info - integer, intent(in),optional :: extype + integer, intent(in) :: novr + Type(psb_dspmat_type), Intent(in) :: a + Type(psb_desc_type), Intent(in) :: desc_a + Type(psb_desc_type), Intent(out) :: desc_ov + integer, intent(out) :: info + integer, intent(in),optional :: extype end Subroutine psb_dcdovr Subroutine psb_zcdovr(a,desc_a,novr,desc_ov,info,extype) use psb_descriptor_type Use psb_spmat_type - integer, intent(in) :: novr - Type(psb_zspmat_type), Intent(in) :: a - Type(psb_desc_type), Intent(in) :: desc_a - Type(psb_desc_type), Intent(inout) :: desc_ov - integer, intent(out) :: info - integer, intent(in),optional :: extype + integer, intent(in) :: novr + Type(psb_zspmat_type), Intent(in) :: a + Type(psb_desc_type), Intent(in) :: desc_a + Type(psb_desc_type), Intent(out) :: desc_ov + integer, intent(out) :: info + integer, intent(in),optional :: extype end Subroutine psb_zcdovr end interface diff --git a/base/tools/psb_dcdovr.F90 b/base/tools/psb_dcdovr.F90 index 64b4416b..a9c119de 100644 --- a/base/tools/psb_dcdovr.F90 +++ b/base/tools/psb_dcdovr.F90 @@ -77,12 +77,12 @@ Subroutine psb_dcdovr(a,desc_a,novr,desc_ov,info, extype) #endif ! .. Array Arguments .. - integer, intent(in) :: novr - Type(psb_dspmat_type), Intent(in) :: a - Type(psb_desc_type), Intent(in) :: desc_a - Type(psb_desc_type), Intent(inout) :: desc_ov - integer, intent(out) :: info - integer, intent(in),optional :: extype + integer, intent(in) :: novr + Type(psb_dspmat_type), Intent(in) :: a + Type(psb_desc_type), Intent(in) :: desc_a + Type(psb_desc_type), Intent(out) :: desc_ov + integer, intent(out) :: info + integer, intent(in),optional :: extype interface subroutine psb_icdasb(desc_a,info,ext_hv) diff --git a/base/tools/psb_zcdovr.F90 b/base/tools/psb_zcdovr.F90 index 1a556af0..9acdc5a3 100644 --- a/base/tools/psb_zcdovr.F90 +++ b/base/tools/psb_zcdovr.F90 @@ -76,12 +76,12 @@ Subroutine psb_zcdovr(a,desc_a,novr,desc_ov,info, extype) #endif ! .. Array Arguments .. - integer, intent(in) :: novr - Type(psb_zspmat_type), Intent(in) :: a - Type(psb_desc_type), Intent(in) :: desc_a - Type(psb_desc_type), Intent(inout) :: desc_ov - integer, intent(out) :: info - integer, intent(in),optional :: extype + integer, intent(in) :: novr + Type(psb_zspmat_type), Intent(in) :: a + Type(psb_desc_type), Intent(in) :: desc_a + Type(psb_desc_type), Intent(out) :: desc_ov + integer, intent(out) :: info + integer, intent(in),optional :: extype interface subroutine psb_icdasb(desc_a,info,ext_hv)