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

Merge branch 'unify_aggr_bld' of https://github.com/sfilippone/mld2p4-2 into unify_aggr_bld

Browse Source
pizdaint-runs
Salvatore Filippone 5 years ago
parent 4d1a87e5d8 8eae0dc459
commit 5b9f76354b
2 changed files with 182 additions and 184 deletions
Show Stats Download Patch File Download Diff File

3
cbind/mlprec/mld_dprec_cbind_mod.F90
Unescape Escape View File

@ -35,9 +35,9 @@ contains
type(mld_dprec_type), pointer :: precp type(mld_dprec_type), pointer :: precp
character(len=80) :: fptype character(len=80) :: fptype
res = -1
res = -1 res = -1
if (c_associated(ph%item)) then if (c_associated(ph%item)) then
res = 0
return return
end if end if
@ -378,4 +378,3 @@ contains
end function mld_c_dprecfree end function mld_c_dprecfree
end module mld_dprec_cbind_mod end module mld_dprec_cbind_mod

3
cbind/mlprec/mld_zprec_cbind_mod.F90
Unescape Escape View File

@ -35,9 +35,9 @@ contains
type(mld_zprec_type), pointer :: precp type(mld_zprec_type), pointer :: precp
character(len=80) :: fptype character(len=80) :: fptype
res = -1
res = -1 res = -1
if (c_associated(ph%item)) then if (c_associated(ph%item)) then
res = 0
return return
end if end if
@ -378,4 +378,3 @@ contains
end function mld_c_zprecfree end function mld_c_zprecfree
end module mld_zprec_cbind_mod end module mld_zprec_cbind_mod

Write Preview
Loading…
Cancel
Save