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

Corrected return on C interface of precinit for already associated prec

Browse Source
This commit is contained in:
Cirdans-Home
2020-05-08 12:13:42 +02:00
parent 8f60a49fc6
commit 8eae0dc459
2 changed files with 182 additions and 184 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/mlprec/mld_dprec_cbind_mod.F90
+1 -2
View File
@@ -35,9 +35,9 @@ contains
type(mld_dprec_type), pointer :: precp
character(len=80) :: fptype
res = -1
res = -1
if (c_associated(ph%item)) then
res = 0
return
end if
@@ -378,4 +378,3 @@ contains
end function mld_c_dprecfree
end module mld_dprec_cbind_mod
cbind/mlprec/mld_zprec_cbind_mod.F90
+1 -2
View File
@@ -35,9 +35,9 @@ contains
type(mld_zprec_type), pointer :: precp
character(len=80) :: fptype
res = -1
res = -1
if (c_associated(ph%item)) then
res = 0
return
end if
@@ -378,4 +378,3 @@ contains
end function mld_c_zprecfree
end module mld_zprec_cbind_mod