Fixed intent out on cdovr (aka bld_ext)

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
 

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)

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)