mld2p4-2:

mlprec/mld_c_prec_type.f90
 mlprec/mld_d_prec_type.f90
 mlprec/mld_s_prec_type.f90
 mlprec/mld_z_prec_type.f90

Fixes for clone intent.
stopcriterion
Salvatore Filippone 12 years ago
parent 986ddc6314
commit 3187a2d5f8

@ -755,18 +755,19 @@ contains
implicit none implicit none
class(mld_cprec_type), intent(inout) :: prec class(mld_cprec_type), intent(inout) :: prec
class(psb_cprec_type), intent(out) :: precout class(psb_cprec_type), intent(inout) :: precout
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
call mld_c_inner_clone(prec,precout,info) call precout%free(info)
if (info == 0) call mld_c_inner_clone(prec,precout,info)
end subroutine mld_c_clone end subroutine mld_c_clone
subroutine mld_c_inner_clone(prec,precout,info) subroutine mld_c_inner_clone(prec,precout,info)
implicit none implicit none
class(mld_cprec_type), intent(inout) :: prec class(mld_cprec_type), intent(inout) :: prec
class(psb_cprec_type), target, intent(out) :: precout class(psb_cprec_type), target, intent(inout) :: precout
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
! Local vars ! Local vars
integer(psb_ipk_) :: i, j, il1, ln, lname, lev integer(psb_ipk_) :: i, j, il1, ln, lname, lev

@ -755,18 +755,19 @@ contains
implicit none implicit none
class(mld_dprec_type), intent(inout) :: prec class(mld_dprec_type), intent(inout) :: prec
class(psb_dprec_type), intent(out) :: precout class(psb_dprec_type), intent(inout) :: precout
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
call mld_d_inner_clone(prec,precout,info) call precout%free(info)
if (info == 0) call mld_d_inner_clone(prec,precout,info)
end subroutine mld_d_clone end subroutine mld_d_clone
subroutine mld_d_inner_clone(prec,precout,info) subroutine mld_d_inner_clone(prec,precout,info)
implicit none implicit none
class(mld_dprec_type), intent(inout) :: prec class(mld_dprec_type), intent(inout) :: prec
class(psb_dprec_type), target, intent(out) :: precout class(psb_dprec_type), target, intent(inout) :: precout
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
! Local vars ! Local vars
integer(psb_ipk_) :: i, j, il1, ln, lname, lev integer(psb_ipk_) :: i, j, il1, ln, lname, lev

@ -755,18 +755,19 @@ contains
implicit none implicit none
class(mld_sprec_type), intent(inout) :: prec class(mld_sprec_type), intent(inout) :: prec
class(psb_sprec_type), intent(out) :: precout class(psb_sprec_type), intent(inout) :: precout
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
call mld_s_inner_clone(prec,precout,info) call precout%free(info)
if (info == 0) call mld_s_inner_clone(prec,precout,info)
end subroutine mld_s_clone end subroutine mld_s_clone
subroutine mld_s_inner_clone(prec,precout,info) subroutine mld_s_inner_clone(prec,precout,info)
implicit none implicit none
class(mld_sprec_type), intent(inout) :: prec class(mld_sprec_type), intent(inout) :: prec
class(psb_sprec_type), target, intent(out) :: precout class(psb_sprec_type), target, intent(inout) :: precout
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
! Local vars ! Local vars
integer(psb_ipk_) :: i, j, il1, ln, lname, lev integer(psb_ipk_) :: i, j, il1, ln, lname, lev

@ -755,18 +755,19 @@ contains
implicit none implicit none
class(mld_zprec_type), intent(inout) :: prec class(mld_zprec_type), intent(inout) :: prec
class(psb_zprec_type), intent(out) :: precout class(psb_zprec_type), intent(inout) :: precout
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
call mld_z_inner_clone(prec,precout,info) call precout%free(info)
if (info == 0) call mld_z_inner_clone(prec,precout,info)
end subroutine mld_z_clone end subroutine mld_z_clone
subroutine mld_z_inner_clone(prec,precout,info) subroutine mld_z_inner_clone(prec,precout,info)
implicit none implicit none
class(mld_zprec_type), intent(inout) :: prec class(mld_zprec_type), intent(inout) :: prec
class(psb_zprec_type), target, intent(out) :: precout class(psb_zprec_type), target, intent(inout) :: precout
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
! Local vars ! Local vars
integer(psb_ipk_) :: i, j, il1, ln, lname, lev integer(psb_ipk_) :: i, j, il1, ln, lname, lev

Loading…
Cancel
Save