|
|
@ -69,6 +69,14 @@
|
|
|
|
! If nlev is not present, the parameter identified by 'what'
|
|
|
|
! If nlev is not present, the parameter identified by 'what'
|
|
|
|
! is set at all the appropriate levels.
|
|
|
|
! is set at all the appropriate levels.
|
|
|
|
!
|
|
|
|
!
|
|
|
|
|
|
|
|
!
|
|
|
|
|
|
|
|
! NOTE: currently, the use of the argument ilev is not "safe" and is reserved to
|
|
|
|
|
|
|
|
! MLD2P4 developers. Indeed, by using ilev it is possible to set different values
|
|
|
|
|
|
|
|
! of the same parameter at different levels 1,...,nlev-1, even in cases where
|
|
|
|
|
|
|
|
! the parameter must have the same value at all the levels but the coarsest one.
|
|
|
|
|
|
|
|
! For this reason, the interface mld_precset to this routine has been built in
|
|
|
|
|
|
|
|
! such a way that ilev is not visible to the user (see mld_prec_mod.f90).
|
|
|
|
|
|
|
|
!
|
|
|
|
subroutine mld_cprecseti(p,what,val,info,ilev)
|
|
|
|
subroutine mld_cprecseti(p,what,val,info,ilev)
|
|
|
|
|
|
|
|
|
|
|
|
use psb_base_mod
|
|
|
|
use psb_base_mod
|
|
|
@ -317,6 +325,14 @@ end subroutine mld_cprecseti
|
|
|
|
! If nlev is not present, the parameter identified by 'what'
|
|
|
|
! If nlev is not present, the parameter identified by 'what'
|
|
|
|
! is set at all the appropriate levels.
|
|
|
|
! is set at all the appropriate levels.
|
|
|
|
!
|
|
|
|
!
|
|
|
|
|
|
|
|
! NOTE: currently, the use of the argument ilev is not "safe" and is reserved to
|
|
|
|
|
|
|
|
! MLD2P4 developers. Indeed, by using ilev it is possible to set different values
|
|
|
|
|
|
|
|
! of the same parameter at different levels 1,...,nlev-1, even in cases where
|
|
|
|
|
|
|
|
! the parameter must have the same value at all the levels but the coarsest one.
|
|
|
|
|
|
|
|
! For this reason, the interface mld_precset to this routine has been built in
|
|
|
|
|
|
|
|
! such a way that ilev is not visible to the user (see mld_prec_mod.f90).
|
|
|
|
|
|
|
|
!
|
|
|
|
|
|
|
|
!
|
|
|
|
subroutine mld_cprecsetc(p,what,string,info,ilev)
|
|
|
|
subroutine mld_cprecsetc(p,what,string,info,ilev)
|
|
|
|
|
|
|
|
|
|
|
|
use psb_base_mod
|
|
|
|
use psb_base_mod
|
|
|
@ -400,6 +416,14 @@ end subroutine mld_cprecsetc
|
|
|
|
! If nlev is not present, the parameter identified by 'what'
|
|
|
|
! If nlev is not present, the parameter identified by 'what'
|
|
|
|
! is set at all the appropriate levels.
|
|
|
|
! is set at all the appropriate levels.
|
|
|
|
!
|
|
|
|
!
|
|
|
|
|
|
|
|
! NOTE: currently, the use of the argument ilev is not "safe" and is reserved to
|
|
|
|
|
|
|
|
! MLD2P4 developers. Indeed, by using ilev it is possible to set different values
|
|
|
|
|
|
|
|
! of the same parameter at different levels 1,...,nlev-1, even in cases where
|
|
|
|
|
|
|
|
! the parameter must have the same value at all the levels but the coarsest one.
|
|
|
|
|
|
|
|
! For this reason, the interface mld_precset to this routine has been built in
|
|
|
|
|
|
|
|
! such a way that ilev is not visible to the user (see mld_prec_mod.f90).
|
|
|
|
|
|
|
|
!
|
|
|
|
|
|
|
|
!
|
|
|
|
subroutine mld_cprecsetr(p,what,val,info,ilev)
|
|
|
|
subroutine mld_cprecsetr(p,what,val,info,ilev)
|
|
|
|
|
|
|
|
|
|
|
|
use psb_base_mod
|
|
|
|
use psb_base_mod
|
|
|
|