fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Formatting changes

Browse Source
stopcriterion
Salvatore Filippone 6 years ago
parent e318e23310
commit 02abb91ebc
4 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File

6
mlprec/mld_c_ilu_solver.f90
Unescape Escape View File

@ -387,7 +387,7 @@ contains
logical, intent(in), optional :: coarse logical, intent(in), optional :: coarse
! Local variables ! Local variables
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
character(len=20), parameter :: name='mld_c_ilu_solver_descr' character(len=20), parameter :: name='mld_c_ilu_solver_descr'
integer(psb_ipk_) :: iout_ integer(psb_ipk_) :: iout_
@ -422,7 +422,7 @@ contains
! Arguments ! Arguments
class(mld_c_ilu_solver_type), intent(in) :: sv class(mld_c_ilu_solver_type), intent(in) :: sv
integer(psb_epk_) :: val integer(psb_epk_) :: val
integer(psb_ipk_) :: i integer(psb_ipk_) :: i
val = 0 val = 0
val = val + sv%dv%get_nrows() val = val + sv%dv%get_nrows()
@ -438,7 +438,7 @@ contains
! Arguments ! Arguments
class(mld_c_ilu_solver_type), intent(in) :: sv class(mld_c_ilu_solver_type), intent(in) :: sv
integer(psb_epk_) :: val integer(psb_epk_) :: val
integer(psb_ipk_) :: i integer(psb_ipk_) :: i
val = 2*psb_sizeof_ip + (2*psb_sizeof_sp) val = 2*psb_sizeof_ip + (2*psb_sizeof_sp)
val = val + sv%dv%sizeof() val = val + sv%dv%sizeof()

6
mlprec/mld_d_ilu_solver.f90
Unescape Escape View File

@ -387,7 +387,7 @@ contains
logical, intent(in), optional :: coarse logical, intent(in), optional :: coarse
! Local variables ! Local variables
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
character(len=20), parameter :: name='mld_d_ilu_solver_descr' character(len=20), parameter :: name='mld_d_ilu_solver_descr'
integer(psb_ipk_) :: iout_ integer(psb_ipk_) :: iout_
@ -422,7 +422,7 @@ contains
! Arguments ! Arguments
class(mld_d_ilu_solver_type), intent(in) :: sv class(mld_d_ilu_solver_type), intent(in) :: sv
integer(psb_epk_) :: val integer(psb_epk_) :: val
integer(psb_ipk_) :: i integer(psb_ipk_) :: i
val = 0 val = 0
val = val + sv%dv%get_nrows() val = val + sv%dv%get_nrows()
@ -438,7 +438,7 @@ contains
! Arguments ! Arguments
class(mld_d_ilu_solver_type), intent(in) :: sv class(mld_d_ilu_solver_type), intent(in) :: sv
integer(psb_epk_) :: val integer(psb_epk_) :: val
integer(psb_ipk_) :: i integer(psb_ipk_) :: i
val = 2*psb_sizeof_ip + psb_sizeof_dp val = 2*psb_sizeof_ip + psb_sizeof_dp
val = val + sv%dv%sizeof() val = val + sv%dv%sizeof()

6
mlprec/mld_s_ilu_solver.f90
Unescape Escape View File

@ -387,7 +387,7 @@ contains
logical, intent(in), optional :: coarse logical, intent(in), optional :: coarse
! Local variables ! Local variables
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
character(len=20), parameter :: name='mld_s_ilu_solver_descr' character(len=20), parameter :: name='mld_s_ilu_solver_descr'
integer(psb_ipk_) :: iout_ integer(psb_ipk_) :: iout_
@ -422,7 +422,7 @@ contains
! Arguments ! Arguments
class(mld_s_ilu_solver_type), intent(in) :: sv class(mld_s_ilu_solver_type), intent(in) :: sv
integer(psb_epk_) :: val integer(psb_epk_) :: val
integer(psb_ipk_) :: i integer(psb_ipk_) :: i
val = 0 val = 0
val = val + sv%dv%get_nrows() val = val + sv%dv%get_nrows()
@ -438,7 +438,7 @@ contains
! Arguments ! Arguments
class(mld_s_ilu_solver_type), intent(in) :: sv class(mld_s_ilu_solver_type), intent(in) :: sv
integer(psb_epk_) :: val integer(psb_epk_) :: val
integer(psb_ipk_) :: i integer(psb_ipk_) :: i
val = 2*psb_sizeof_ip + psb_sizeof_sp val = 2*psb_sizeof_ip + psb_sizeof_sp
val = val + sv%dv%sizeof() val = val + sv%dv%sizeof()

6
mlprec/mld_z_ilu_solver.f90
Unescape Escape View File

@ -387,7 +387,7 @@ contains
logical, intent(in), optional :: coarse logical, intent(in), optional :: coarse
! Local variables ! Local variables
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
character(len=20), parameter :: name='mld_z_ilu_solver_descr' character(len=20), parameter :: name='mld_z_ilu_solver_descr'
integer(psb_ipk_) :: iout_ integer(psb_ipk_) :: iout_
@ -422,7 +422,7 @@ contains
! Arguments ! Arguments
class(mld_z_ilu_solver_type), intent(in) :: sv class(mld_z_ilu_solver_type), intent(in) :: sv
integer(psb_epk_) :: val integer(psb_epk_) :: val
integer(psb_ipk_) :: i integer(psb_ipk_) :: i
val = 0 val = 0
val = val + sv%dv%get_nrows() val = val + sv%dv%get_nrows()
@ -438,7 +438,7 @@ contains
! Arguments ! Arguments
class(mld_z_ilu_solver_type), intent(in) :: sv class(mld_z_ilu_solver_type), intent(in) :: sv
integer(psb_epk_) :: val integer(psb_epk_) :: val
integer(psb_ipk_) :: i integer(psb_ipk_) :: i
val = 2*psb_sizeof_ip + (2*psb_sizeof_dp) val = 2*psb_sizeof_ip + (2*psb_sizeof_dp)
val = val + sv%dv%sizeof() val = val + sv%dv%sizeof()

Write Preview
Loading…
Cancel
Save