|
|
@ -35,18 +35,19 @@
|
|
|
|
! POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
! POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
!
|
|
|
|
!
|
|
|
|
!
|
|
|
|
!
|
|
|
|
subroutine mld_c_diag_solver_dmp(sv,ictxt,level,info,prefix,head,solver)
|
|
|
|
subroutine mld_c_diag_solver_dmp(sv,desc,level,info,prefix,head,solver,global_num)
|
|
|
|
|
|
|
|
|
|
|
|
use psb_base_mod
|
|
|
|
use psb_base_mod
|
|
|
|
use mld_c_diag_solver, mld_protect_name => mld_c_diag_solver_dmp
|
|
|
|
use mld_c_diag_solver, mld_protect_name => mld_c_diag_solver_dmp
|
|
|
|
implicit none
|
|
|
|
implicit none
|
|
|
|
class(mld_c_diag_solver_type), intent(in) :: sv
|
|
|
|
class(mld_c_diag_solver_type), intent(in) :: sv
|
|
|
|
integer(psb_ipk_), intent(in) :: ictxt,level
|
|
|
|
type(psb_desc_type), intent(in) :: desc
|
|
|
|
|
|
|
|
integer(psb_ipk_), intent(in) :: level
|
|
|
|
integer(psb_ipk_), intent(out) :: info
|
|
|
|
integer(psb_ipk_), intent(out) :: info
|
|
|
|
character(len=*), intent(in), optional :: prefix, head
|
|
|
|
character(len=*), intent(in), optional :: prefix, head
|
|
|
|
logical, optional, intent(in) :: solver
|
|
|
|
logical, optional, intent(in) :: solver, global_num
|
|
|
|
integer(psb_ipk_) :: i, j, il1, iln, lname, lev
|
|
|
|
integer(psb_ipk_) :: i, j, il1, iln, lname, lev
|
|
|
|
integer(psb_ipk_) :: icontxt,iam, np
|
|
|
|
integer(psb_ipk_) :: ictxt,iam, np
|
|
|
|
character(len=80) :: prefix_
|
|
|
|
character(len=80) :: prefix_
|
|
|
|
character(len=120) :: fname ! len should be at least 20 more than
|
|
|
|
character(len=120) :: fname ! len should be at least 20 more than
|
|
|
|
logical :: solver_
|
|
|
|
logical :: solver_
|
|
|
@ -54,6 +55,7 @@ subroutine mld_c_diag_solver_dmp(sv,ictxt,level,info,prefix,head,solver)
|
|
|
|
|
|
|
|
|
|
|
|
info = 0
|
|
|
|
info = 0
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ictxt = desc%get_context()
|
|
|
|
|
|
|
|
|
|
|
|
call psb_info(ictxt,iam,np)
|
|
|
|
call psb_info(ictxt,iam,np)
|
|
|
|
|
|
|
|
|
|
|
@ -81,18 +83,19 @@ subroutine mld_c_diag_solver_dmp(sv,ictxt,level,info,prefix,head,solver)
|
|
|
|
end if
|
|
|
|
end if
|
|
|
|
|
|
|
|
|
|
|
|
end subroutine mld_c_diag_solver_dmp
|
|
|
|
end subroutine mld_c_diag_solver_dmp
|
|
|
|
subroutine mld_c_l1_diag_solver_dmp(sv,ictxt,level,info,prefix,head,solver)
|
|
|
|
subroutine mld_c_l1_diag_solver_dmp(sv,desc,level,info,prefix,head,solver,global_num)
|
|
|
|
|
|
|
|
|
|
|
|
use psb_base_mod
|
|
|
|
use psb_base_mod
|
|
|
|
use mld_c_l1_diag_solver, mld_protect_name => mld_c_l1_diag_solver_dmp
|
|
|
|
use mld_c_l1_diag_solver, mld_protect_name => mld_c_l1_diag_solver_dmp
|
|
|
|
implicit none
|
|
|
|
implicit none
|
|
|
|
class(mld_c_l1_diag_solver_type), intent(in) :: sv
|
|
|
|
class(mld_c_l1_diag_solver_type), intent(in) :: sv
|
|
|
|
integer(psb_ipk_), intent(in) :: ictxt,level
|
|
|
|
type(psb_desc_type), intent(in) :: desc
|
|
|
|
|
|
|
|
integer(psb_ipk_), intent(in) :: level
|
|
|
|
integer(psb_ipk_), intent(out) :: info
|
|
|
|
integer(psb_ipk_), intent(out) :: info
|
|
|
|
character(len=*), intent(in), optional :: prefix, head
|
|
|
|
character(len=*), intent(in), optional :: prefix, head
|
|
|
|
logical, optional, intent(in) :: solver
|
|
|
|
logical, optional, intent(in) :: solver, global_num
|
|
|
|
integer(psb_ipk_) :: i, j, il1, iln, lname, lev
|
|
|
|
integer(psb_ipk_) :: i, j, il1, iln, lname, lev
|
|
|
|
integer(psb_ipk_) :: icontxt,iam, np
|
|
|
|
integer(psb_ipk_) :: ictxt,iam, np
|
|
|
|
character(len=80) :: prefix_
|
|
|
|
character(len=80) :: prefix_
|
|
|
|
character(len=120) :: fname ! len should be at least 20 more than
|
|
|
|
character(len=120) :: fname ! len should be at least 20 more than
|
|
|
|
logical :: solver_
|
|
|
|
logical :: solver_
|
|
|
@ -100,6 +103,7 @@ subroutine mld_c_l1_diag_solver_dmp(sv,ictxt,level,info,prefix,head,solver)
|
|
|
|
|
|
|
|
|
|
|
|
info = 0
|
|
|
|
info = 0
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ictxt = desc%get_context()
|
|
|
|
|
|
|
|
|
|
|
|
call psb_info(ictxt,iam,np)
|
|
|
|
call psb_info(ictxt,iam,np)
|
|
|
|
|
|
|
|
|
|
|
|