Corrected bug in interfaces for genrm2

base/modules/psblas/psb_c_psblas_mod.F90

@@ -296,7 +296,7 @@ module psb_c_psblas_mod
       integer(psb_ipk_), intent(out)      :: info
       logical, intent(in), optional       :: global
     end function psb_cnrm2_vect
-    function psb_cnrm2_weight_vect(x,w, desc_a, info,global) result(res)
+    function psb_cnrm2_weight_vect(x,w, desc_a, info, global, aux) result(res)
       import :: psb_desc_type, psb_spk_, psb_ipk_, &
            & psb_c_vect_type, psb_cspmat_type
       real(psb_spk_)                      :: res
@@ -305,8 +305,9 @@ module psb_c_psblas_mod
       type(psb_desc_type), intent (in)    :: desc_a
       integer(psb_ipk_), intent(out)      :: info
       logical, intent(in), optional       :: global
+      type(psb_c_vect_type), intent (inout), optional :: aux
     end function psb_cnrm2_weight_vect
-    function psb_cnrm2_weightmask_vect(x,w,idv, desc_a, info,global) result(res)
+    function psb_cnrm2_weightmask_vect(x,w,idv, desc_a, info, global, aux) result(res)
       import :: psb_desc_type, psb_spk_, psb_ipk_, &
            & psb_c_vect_type, psb_cspmat_type
       real(psb_spk_)                      :: res
@@ -316,6 +317,7 @@ module psb_c_psblas_mod
       type(psb_desc_type), intent (in)    :: desc_a
       integer(psb_ipk_), intent(out)      :: info
       logical, intent(in), optional       :: global
+      type(psb_c_vect_type), intent (inout), optional :: aux
     end function psb_cnrm2_weightmask_vect
   end interface
 

base/modules/psblas/psb_d_psblas_mod.F90

@@ -307,7 +307,7 @@ module psb_d_psblas_mod
       integer(psb_ipk_), intent(out)      :: info
       logical, intent(in), optional       :: global
     end function psb_dnrm2_vect
-    function psb_dnrm2_weight_vect(x,w, desc_a, info,global) result(res)
+    function psb_dnrm2_weight_vect(x,w, desc_a, info, global, aux) result(res)
       import :: psb_desc_type, psb_dpk_, psb_ipk_, &
            & psb_d_vect_type, psb_dspmat_type
       real(psb_dpk_)                      :: res
@@ -316,8 +316,9 @@ module psb_d_psblas_mod
       type(psb_desc_type), intent (in)    :: desc_a
       integer(psb_ipk_), intent(out)      :: info
       logical, intent(in), optional       :: global
+      type(psb_d_vect_type), intent (inout), optional :: aux
     end function psb_dnrm2_weight_vect
-    function psb_dnrm2_weightmask_vect(x,w,idv, desc_a, info,global) result(res)
+    function psb_dnrm2_weightmask_vect(x,w,idv, desc_a, info, global, aux) result(res)
       import :: psb_desc_type, psb_dpk_, psb_ipk_, &
            & psb_d_vect_type, psb_dspmat_type
       real(psb_dpk_)                      :: res
@@ -327,6 +328,7 @@ module psb_d_psblas_mod
       type(psb_desc_type), intent (in)    :: desc_a
       integer(psb_ipk_), intent(out)      :: info
       logical, intent(in), optional       :: global
+      type(psb_d_vect_type), intent (inout), optional :: aux
     end function psb_dnrm2_weightmask_vect
   end interface
 

base/modules/psblas/psb_s_psblas_mod.F90

@@ -307,7 +307,7 @@ module psb_s_psblas_mod
       integer(psb_ipk_), intent(out)      :: info
       logical, intent(in), optional       :: global
     end function psb_snrm2_vect
-    function psb_snrm2_weight_vect(x,w, desc_a, info,global) result(res)
+    function psb_snrm2_weight_vect(x,w, desc_a, info, global, aux) result(res)
       import :: psb_desc_type, psb_spk_, psb_ipk_, &
            & psb_s_vect_type, psb_sspmat_type
       real(psb_spk_)                      :: res
@@ -316,8 +316,9 @@ module psb_s_psblas_mod
       type(psb_desc_type), intent (in)    :: desc_a
       integer(psb_ipk_), intent(out)      :: info
       logical, intent(in), optional       :: global
+      type(psb_s_vect_type), intent (inout), optional :: aux
     end function psb_snrm2_weight_vect
-    function psb_snrm2_weightmask_vect(x,w,idv, desc_a, info,global) result(res)
+    function psb_snrm2_weightmask_vect(x,w,idv, desc_a, info, global, aux) result(res)
       import :: psb_desc_type, psb_spk_, psb_ipk_, &
            & psb_s_vect_type, psb_sspmat_type
       real(psb_spk_)                      :: res
@@ -327,6 +328,7 @@ module psb_s_psblas_mod
       type(psb_desc_type), intent (in)    :: desc_a
       integer(psb_ipk_), intent(out)      :: info
       logical, intent(in), optional       :: global
+      type(psb_s_vect_type), intent (inout), optional :: aux
     end function psb_snrm2_weightmask_vect
   end interface
 

base/modules/psblas/psb_z_psblas_mod.F90

@@ -296,7 +296,7 @@ module psb_z_psblas_mod
       integer(psb_ipk_), intent(out)      :: info
       logical, intent(in), optional       :: global
     end function psb_znrm2_vect
-    function psb_znrm2_weight_vect(x,w, desc_a, info,global) result(res)
+    function psb_znrm2_weight_vect(x,w, desc_a, info, global, aux) result(res)
       import :: psb_desc_type, psb_dpk_, psb_ipk_, &
            & psb_z_vect_type, psb_zspmat_type
       real(psb_dpk_)                      :: res
@@ -305,8 +305,9 @@ module psb_z_psblas_mod
       type(psb_desc_type), intent (in)    :: desc_a
       integer(psb_ipk_), intent(out)      :: info
       logical, intent(in), optional       :: global
+      type(psb_z_vect_type), intent (inout), optional :: aux
     end function psb_znrm2_weight_vect
-    function psb_znrm2_weightmask_vect(x,w,idv, desc_a, info,global) result(res)
+    function psb_znrm2_weightmask_vect(x,w,idv, desc_a, info, global, aux) result(res)
       import :: psb_desc_type, psb_dpk_, psb_ipk_, &
            & psb_z_vect_type, psb_zspmat_type
       real(psb_dpk_)                      :: res
@@ -316,6 +317,7 @@ module psb_z_psblas_mod
       type(psb_desc_type), intent (in)    :: desc_a
       integer(psb_ipk_), intent(out)      :: info
       logical, intent(in), optional       :: global
+      type(psb_z_vect_type), intent (inout), optional :: aux
     end function psb_znrm2_weightmask_vect
   end interface