Fix SETAG interface with ILMAX

mlprec/mld_c_prec_type.f90

@@ -236,13 +236,13 @@ module mld_c_prec_type
       integer(psb_ipk_), optional, intent(in)     :: ilev,ilmax
       character(len=*), optional, intent(in)      :: pos
     end subroutine mld_cprecsetsv
-    subroutine mld_cprecsetag(prec,val,info,ilev,pos)
+    subroutine mld_cprecsetag(prec,val,info,ilev,ilmax,pos)
       import :: psb_cspmat_type, psb_desc_type, psb_spk_, &
            & mld_cprec_type, mld_c_base_aggregator_type, psb_ipk_
       class(mld_cprec_type), intent(inout)      :: prec
       class(mld_c_base_aggregator_type), intent(in) :: val
       integer(psb_ipk_), intent(out)              :: info
-      integer(psb_ipk_), optional, intent(in)     :: ilev
+      integer(psb_ipk_), optional, intent(in)     :: ilev,ilmax
       character(len=*), optional, intent(in)      :: pos
     end subroutine mld_cprecsetag
     subroutine mld_ccprecseti(prec,what,val,info,ilev,ilmax,pos,idx)

mlprec/mld_d_prec_type.f90

@@ -236,13 +236,13 @@ module mld_d_prec_type
       integer(psb_ipk_), optional, intent(in)     :: ilev,ilmax
       character(len=*), optional, intent(in)      :: pos
     end subroutine mld_dprecsetsv
-    subroutine mld_dprecsetag(prec,val,info,ilev,pos)
+    subroutine mld_dprecsetag(prec,val,info,ilev,ilmax,pos)
       import :: psb_dspmat_type, psb_desc_type, psb_dpk_, &
            & mld_dprec_type, mld_d_base_aggregator_type, psb_ipk_
       class(mld_dprec_type), intent(inout)      :: prec
       class(mld_d_base_aggregator_type), intent(in) :: val
       integer(psb_ipk_), intent(out)              :: info
-      integer(psb_ipk_), optional, intent(in)     :: ilev
+      integer(psb_ipk_), optional, intent(in)     :: ilev,ilmax
       character(len=*), optional, intent(in)      :: pos
     end subroutine mld_dprecsetag
     subroutine mld_dcprecseti(prec,what,val,info,ilev,ilmax,pos,idx)

mlprec/mld_s_prec_type.f90

@@ -236,13 +236,13 @@ module mld_s_prec_type
       integer(psb_ipk_), optional, intent(in)     :: ilev,ilmax
       character(len=*), optional, intent(in)      :: pos
     end subroutine mld_sprecsetsv
-    subroutine mld_sprecsetag(prec,val,info,ilev,pos)
+    subroutine mld_sprecsetag(prec,val,info,ilev,ilmax,pos)
       import :: psb_sspmat_type, psb_desc_type, psb_spk_, &
            & mld_sprec_type, mld_s_base_aggregator_type, psb_ipk_
       class(mld_sprec_type), intent(inout)      :: prec
       class(mld_s_base_aggregator_type), intent(in) :: val
       integer(psb_ipk_), intent(out)              :: info
-      integer(psb_ipk_), optional, intent(in)     :: ilev
+      integer(psb_ipk_), optional, intent(in)     :: ilev,ilmax
       character(len=*), optional, intent(in)      :: pos
     end subroutine mld_sprecsetag
     subroutine mld_scprecseti(prec,what,val,info,ilev,ilmax,pos,idx)

mlprec/mld_z_prec_type.f90

@@ -236,13 +236,13 @@ module mld_z_prec_type
       integer(psb_ipk_), optional, intent(in)     :: ilev,ilmax
       character(len=*), optional, intent(in)      :: pos
     end subroutine mld_zprecsetsv
-    subroutine mld_zprecsetag(prec,val,info,ilev,pos)
+    subroutine mld_zprecsetag(prec,val,info,ilev,ilmax,pos)
       import :: psb_zspmat_type, psb_desc_type, psb_dpk_, &
            & mld_zprec_type, mld_z_base_aggregator_type, psb_ipk_
       class(mld_zprec_type), intent(inout)      :: prec
       class(mld_z_base_aggregator_type), intent(in) :: val
       integer(psb_ipk_), intent(out)              :: info
-      integer(psb_ipk_), optional, intent(in)     :: ilev
+      integer(psb_ipk_), optional, intent(in)     :: ilev,ilmax
       character(len=*), optional, intent(in)      :: pos
     end subroutine mld_zprecsetag
     subroutine mld_zcprecseti(prec,what,val,info,ilev,ilmax,pos,idx)