Taken out UPD argument from user callable routines.

mlprec/mld_dprecbld.f90

@@ -61,7 +61,7 @@
 !    info    -  integer, output.
 !               Error code.              
 !  
-subroutine mld_dprecbld(a,desc_a,p,info,upd)
+subroutine mld_dprecbld(a,desc_a,p,info)
 
   use psb_base_mod
   use mld_prec_mod, protect => mld_dprecbld
@@ -73,12 +73,12 @@ subroutine mld_dprecbld(a,desc_a,p,info,upd)
   type(psb_desc_type), intent(in), target :: desc_a
   type(mld_dprec_type),intent(inout)      :: p
   integer, intent(out)                    :: info
-  character, intent(in), optional         :: upd
+!!$  character, intent(in), optional         :: upd
 
   ! Local Variables
   Integer      :: err,i,k,ictxt, me,np, err_act, iszv
   integer      :: int_err(5)
-  character    :: iupd
+  character    :: upd_
   integer            :: debug_level, debug_unit
   character(len=20)  :: name, ch_err
 
@@ -98,19 +98,22 @@ subroutine mld_dprecbld(a,desc_a,p,info,upd)
   if (debug_level >= psb_debug_outer_) &
        & write(debug_unit,*) me,' ',trim(name),&
        & 'Entering ',desc_a%matrix_data(:)
-
+  !
-  if (present(upd)) then 
+  ! For the time being we are commenting out the UPDATE argument
-    if (debug_level >= psb_debug_outer_) &
+  ! we plan to resurrect it later. 
-         & write(debug_unit,*) me,' ',trim(name),'UPD ', upd
+!!$  if (present(upd)) then 
-
+!!$    if (debug_level >= psb_debug_outer_) &
-    if ((toupper(upd).eq.'F').or.(toupper(upd).eq.'T')) then
+!!$         & write(debug_unit,*) me,' ',trim(name),'UPD ', upd
-      iupd=toupper(upd)
+!!$
-    else
+!!$    if ((toupper(upd).eq.'F').or.(toupper(upd).eq.'T')) then
-      iupd='F'
+!!$      upd_=toupper(upd)
-    endif
+!!$    else
-  else
+!!$      upd_='F'
-    iupd='F'
+!!$    endif
-  endif
+!!$  else
+!!$    upd_='F'
+!!$  endif
+  upd_ = 'F'
 
   if (.not.allocated(p%baseprecv)) then 
     !! Error: should have called mld_dprecinit
@@ -135,7 +138,7 @@ subroutine mld_dprecbld(a,desc_a,p,info,upd)
     ! Allocate and build the fine level preconditioner
     ! 
     call init_baseprc_av(p%baseprecv(1),info)
-    if (info == 0) call mld_baseprc_bld(a,desc_a,p%baseprecv(1),info,iupd)
+    if (info == 0) call mld_baseprc_bld(a,desc_a,p%baseprecv(1),info,upd_)
 
     if (info /= 0) then 
       call psb_errpush(4001,name,a_err='Base level precbuild.')

mlprec/mld_prec_mod.f90

@@ -289,7 +289,7 @@ module mld_prec_mod
 
 
   interface mld_precbld
-    subroutine mld_dprecbld(a,desc_a,prec,info,upd)
+    subroutine mld_dprecbld(a,desc_a,prec,info)
       use psb_base_mod
       use mld_prec_type
       implicit none
@@ -297,9 +297,9 @@ module mld_prec_mod
       type(psb_desc_type), intent(in), target    :: desc_a
       type(mld_dprec_type), intent(inout)        :: prec
       integer, intent(out)                       :: info
-      character, intent(in),optional             :: upd
+!!$      character, intent(in),optional             :: upd
     end subroutine mld_dprecbld
-    subroutine mld_zprecbld(a,desc_a,prec,info,upd)
+    subroutine mld_zprecbld(a,desc_a,prec,info)
       use psb_base_mod
       use mld_prec_type
       implicit none
@@ -307,7 +307,7 @@ module mld_prec_mod
       type(psb_desc_type), intent(in), target    :: desc_a
       type(mld_zprec_type), intent(inout)        :: prec
       integer, intent(out)                       :: info
-      character, intent(in),optional             :: upd
+!!$      character, intent(in),optional             :: upd
     end subroutine mld_zprecbld
   end interface
 

mlprec/mld_zprecbld.f90

@@ -61,7 +61,7 @@
 !    info    -  integer, output.
 !               Error code.              
 !  
-subroutine mld_zprecbld(a,desc_a,p,info,upd)
+subroutine mld_zprecbld(a,desc_a,p,info)
 
   use psb_base_mod
   use mld_prec_mod, mld_protect_name => mld_zprecbld
@@ -72,13 +72,13 @@ subroutine mld_zprecbld(a,desc_a,p,info,upd)
   type(psb_desc_type), intent(in), target    :: desc_a
   type(mld_zprec_type),intent(inout)         :: p
   integer, intent(out)                       :: info
-  character, intent(in), optional            :: upd
+!!$  character, intent(in), optional            :: upd
 
 
   ! Local Variables
   Integer      :: err,i,k,ictxt, me,np, err_act, iszv
   integer      :: int_err(5)
-  character    :: iupd
+  character    :: upd_
   integer            :: debug_level, debug_unit
   character(len=20)  :: name, ch_err
 
@@ -98,19 +98,22 @@ subroutine mld_zprecbld(a,desc_a,p,info,upd)
   if (debug_level >= psb_debug_outer_) &
        & write(debug_unit,*) me,' ',trim(name),&
        & 'Entering ',desc_a%matrix_data(:)
-
+  !
-  if (present(upd)) then 
+  ! For the time being we are commenting out the UPDATE argument
-    if (debug_level >= psb_debug_outer_) &
+  ! we plan to resurrect it later. 
-         & write(debug_unit,*) me,' ',trim(name),'UPD ', upd
+!!$  if (present(upd)) then 
-
+!!$    if (debug_level >= psb_debug_outer_) &
-    if ((toupper(upd).eq.'F').or.(toupper(upd).eq.'T')) then
+!!$         & write(debug_unit,*) me,' ',trim(name),'UPD ', upd
-      iupd=toupper(upd)
+!!$
-    else
+!!$    if ((toupper(upd).eq.'F').or.(toupper(upd).eq.'T')) then
-      iupd='F'
+!!$      upd_=toupper(upd)
-    endif
+!!$    else
-  else
+!!$      upd_='F'
-    iupd='F'
+!!$    endif
-  endif
+!!$  else
+!!$    upd_='F'
+!!$  endif
+  upd_ = 'F'
 
   if (.not.allocated(p%baseprecv)) then 
     !! Error: should have called mld_dprecinit
@@ -135,7 +138,7 @@ subroutine mld_zprecbld(a,desc_a,p,info,upd)
     ! Allocate and build the fine level preconditioner
     ! 
     call init_baseprc_av(p%baseprecv(1),info)
-    if (info == 0) call mld_baseprc_bld(a,desc_a,p%baseprecv(1),info,iupd)
+    if (info == 0) call mld_baseprc_bld(a,desc_a,p%baseprecv(1),info,upd_)
 
     if (info /= 0) then 
       call psb_errpush(4001,name,a_err='Base level precbuild.')