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

5 years ago · 5b9f76354b
parent 4d1a87e5d8 8eae0dc459
commit 5b9f76354b
2 changed files with 182 additions and 184 deletions
--- a/cbind/mlprec/mld_dprec_cbind_mod.F90
+++ b/cbind/mlprec/mld_dprec_cbind_mod.F90
@ -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
-
--- a/cbind/mlprec/mld_zprec_cbind_mod.F90
+++ b/cbind/mlprec/mld_zprec_cbind_mod.F90
@ -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
-