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

Fix select type

Browse Source
gpucinterfaces
sfilippone 4 months ago
parent 3230c70308
commit 228f4e46a9
8 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

2
amgprec/impl/smoother/amg_c_as_smoother_clone.f90
Unescape Escape View File

@ -74,7 +74,7 @@ subroutine amg_c_as_smoother_clone(sm,smout,info)
if (info == psb_success_) & if (info == psb_success_) &
& call sm%desc_data%clone(smo%desc_data,info) & call sm%desc_data%clone(smo%desc_data,info)
if ((info==psb_success_).and.(allocated(sm%sv))) then if ((info==psb_success_).and.(allocated(sm%sv))) then
allocate(smout%sv,mold=sm%sv,stat=info) allocate(smo%sv,mold=sm%sv,stat=info)
if (info == psb_success_) call sm%sv%clone(smo%sv,info) if (info == psb_success_) call sm%sv%clone(smo%sv,info)
end if end if

2
amgprec/impl/smoother/amg_c_jac_smoother_clone.f90
Unescape Escape View File

@ -74,7 +74,7 @@ subroutine amg_c_jac_smoother_clone(sm,smout,info)
smo%tol = sm%tol smo%tol = sm%tol
call sm%nd%clone(smo%nd,info) call sm%nd%clone(smo%nd,info)
if ((info==psb_success_).and.(allocated(sm%sv))) then if ((info==psb_success_).and.(allocated(sm%sv))) then
allocate(smout%sv,mold=sm%sv,stat=info) allocate(smo%sv,mold=sm%sv,stat=info)
if (info == psb_success_) call sm%sv%clone(smo%sv,info) if (info == psb_success_) call sm%sv%clone(smo%sv,info)
end if end if

2
amgprec/impl/smoother/amg_d_as_smoother_clone.f90
Unescape Escape View File

@ -74,7 +74,7 @@ subroutine amg_d_as_smoother_clone(sm,smout,info)
if (info == psb_success_) & if (info == psb_success_) &
& call sm%desc_data%clone(smo%desc_data,info) & call sm%desc_data%clone(smo%desc_data,info)
if ((info==psb_success_).and.(allocated(sm%sv))) then if ((info==psb_success_).and.(allocated(sm%sv))) then
allocate(smout%sv,mold=sm%sv,stat=info) allocate(smo%sv,mold=sm%sv,stat=info)
if (info == psb_success_) call sm%sv%clone(smo%sv,info) if (info == psb_success_) call sm%sv%clone(smo%sv,info)
end if end if

2
amgprec/impl/smoother/amg_d_jac_smoother_clone.f90
Unescape Escape View File

@ -74,7 +74,7 @@ subroutine amg_d_jac_smoother_clone(sm,smout,info)
smo%tol = sm%tol smo%tol = sm%tol
call sm%nd%clone(smo%nd,info) call sm%nd%clone(smo%nd,info)
if ((info==psb_success_).and.(allocated(sm%sv))) then if ((info==psb_success_).and.(allocated(sm%sv))) then
allocate(smout%sv,mold=sm%sv,stat=info) allocate(smo%sv,mold=sm%sv,stat=info)
if (info == psb_success_) call sm%sv%clone(smo%sv,info) if (info == psb_success_) call sm%sv%clone(smo%sv,info)
end if end if

2
amgprec/impl/smoother/amg_s_as_smoother_clone.f90
Unescape Escape View File

@ -74,7 +74,7 @@ subroutine amg_s_as_smoother_clone(sm,smout,info)
if (info == psb_success_) & if (info == psb_success_) &
& call sm%desc_data%clone(smo%desc_data,info) & call sm%desc_data%clone(smo%desc_data,info)
if ((info==psb_success_).and.(allocated(sm%sv))) then if ((info==psb_success_).and.(allocated(sm%sv))) then
allocate(smout%sv,mold=sm%sv,stat=info) allocate(smo%sv,mold=sm%sv,stat=info)
if (info == psb_success_) call sm%sv%clone(smo%sv,info) if (info == psb_success_) call sm%sv%clone(smo%sv,info)
end if end if

2
amgprec/impl/smoother/amg_s_jac_smoother_clone.f90
Unescape Escape View File

@ -74,7 +74,7 @@ subroutine amg_s_jac_smoother_clone(sm,smout,info)
smo%tol = sm%tol smo%tol = sm%tol
call sm%nd%clone(smo%nd,info) call sm%nd%clone(smo%nd,info)
if ((info==psb_success_).and.(allocated(sm%sv))) then if ((info==psb_success_).and.(allocated(sm%sv))) then
allocate(smout%sv,mold=sm%sv,stat=info) allocate(smo%sv,mold=sm%sv,stat=info)
if (info == psb_success_) call sm%sv%clone(smo%sv,info) if (info == psb_success_) call sm%sv%clone(smo%sv,info)
end if end if

2
amgprec/impl/smoother/amg_z_as_smoother_clone.f90
Unescape Escape View File

@ -74,7 +74,7 @@ subroutine amg_z_as_smoother_clone(sm,smout,info)
if (info == psb_success_) & if (info == psb_success_) &
& call sm%desc_data%clone(smo%desc_data,info) & call sm%desc_data%clone(smo%desc_data,info)
if ((info==psb_success_).and.(allocated(sm%sv))) then if ((info==psb_success_).and.(allocated(sm%sv))) then
allocate(smout%sv,mold=sm%sv,stat=info) allocate(smo%sv,mold=sm%sv,stat=info)
if (info == psb_success_) call sm%sv%clone(smo%sv,info) if (info == psb_success_) call sm%sv%clone(smo%sv,info)
end if end if

2
amgprec/impl/smoother/amg_z_jac_smoother_clone.f90
Unescape Escape View File

@ -74,7 +74,7 @@ subroutine amg_z_jac_smoother_clone(sm,smout,info)
smo%tol = sm%tol smo%tol = sm%tol
call sm%nd%clone(smo%nd,info) call sm%nd%clone(smo%nd,info)
if ((info==psb_success_).and.(allocated(sm%sv))) then if ((info==psb_success_).and.(allocated(sm%sv))) then
allocate(smout%sv,mold=sm%sv,stat=info) allocate(smo%sv,mold=sm%sv,stat=info)
if (info == psb_success_) call sm%sv%clone(smo%sv,info) if (info == psb_success_) call sm%sv%clone(smo%sv,info)
end if end if

Write Preview
Loading…
Cancel
Save