fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 06:34:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix select type

Browse Source
This commit is contained in:
sfilippone
2026-01-27 12:15:14 +01:00
parent 3230c70308
commit 228f4e46a9
8 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
amgprec/impl/smoother/amg_c_as_smoother_clone.f90
+1 -1
View File
@@ -74,7 +74,7 @@ subroutine amg_c_as_smoother_clone(sm,smout,info)
if (info == psb_success_) &
& call sm%desc_data%clone(smo%desc_data,info)
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)
end if
amgprec/impl/smoother/amg_c_jac_smoother_clone.f90
+1 -1
View File
@@ -74,7 +74,7 @@ subroutine amg_c_jac_smoother_clone(sm,smout,info)
smo%tol = sm%tol
call sm%nd%clone(smo%nd,info)
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)
end if
amgprec/impl/smoother/amg_d_as_smoother_clone.f90
+1 -1
View File
@@ -74,7 +74,7 @@ subroutine amg_d_as_smoother_clone(sm,smout,info)
if (info == psb_success_) &
& call sm%desc_data%clone(smo%desc_data,info)
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)
end if
amgprec/impl/smoother/amg_d_jac_smoother_clone.f90
+1 -1
View File
@@ -74,7 +74,7 @@ subroutine amg_d_jac_smoother_clone(sm,smout,info)
smo%tol = sm%tol
call sm%nd%clone(smo%nd,info)
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)
end if
amgprec/impl/smoother/amg_s_as_smoother_clone.f90
+1 -1
View File
@@ -74,7 +74,7 @@ subroutine amg_s_as_smoother_clone(sm,smout,info)
if (info == psb_success_) &
& call sm%desc_data%clone(smo%desc_data,info)
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)
end if
amgprec/impl/smoother/amg_s_jac_smoother_clone.f90
+1 -1
View File
@@ -74,7 +74,7 @@ subroutine amg_s_jac_smoother_clone(sm,smout,info)
smo%tol = sm%tol
call sm%nd%clone(smo%nd,info)
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)
end if
amgprec/impl/smoother/amg_z_as_smoother_clone.f90
+1 -1
View File
@@ -74,7 +74,7 @@ subroutine amg_z_as_smoother_clone(sm,smout,info)
if (info == psb_success_) &
& call sm%desc_data%clone(smo%desc_data,info)
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)
end if
amgprec/impl/smoother/amg_z_jac_smoother_clone.f90
+1 -1
View File
@@ -74,7 +74,7 @@ subroutine amg_z_jac_smoother_clone(sm,smout,info)
smo%tol = sm%tol
call sm%nd%clone(smo%nd,info)
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)
end if