more tweaks to issame functions

Src/F_Interfaces/Base/AMReX_boxarray_mod.F90

@@ -129,6 +129,12 @@ pure integer function amrex_fi_boxarray_intersects_box (ba, lo, hi) bind(c)
        type(c_ptr), value, intent(in) :: ba
        integer, intent(in) :: lo(*), hi(*)
      end function amrex_fi_boxarray_intersects_box
+
+     pure logical function amrex_fi_boxarray_issame (baa, bab) bind(c)
+       import
+       implicit none
+       type(c_ptr), value, intent(in) :: baa, bab
+     end function amrex_fi_boxarray_issame
   end interface
 
 contains

Src/F_Interfaces/Base/AMReX_distromap_fi.cpp

@@ -44,6 +44,6 @@ extern "C" {
 
     bool amrex_fi_distromap_issame (const DistributionMapping& dma, const DistributionMapping& dmb)
     {
-        return dma==dmb;
+        return dma == dmb;
     }
 }

Src/F_Interfaces/Base/AMReX_distromap_mod.F90

@@ -90,6 +90,12 @@ subroutine amrex_fi_print_distromap (dm) bind(c)
        implicit none
        type(c_ptr), value :: dm
      end subroutine amrex_fi_print_distromap
+
+     pure logical function amrex_fi_distromap_issame (dma, dmb) bind(c)
+       import
+       implicit none
+       type(c_ptr), value :: dma, dmb
+     end function amrex_fi_distromap_issame
   end interface
 
 contains
@@ -160,10 +166,9 @@ subroutine amrex_distromap_print (dm)
   end subroutine amrex_distromap_print
 
   pure function amrex_distromap_issame (dma, dmb) result(r)
-     type(amrex_distromap), intent(in) :: dma
-     type(amrex_distromap), intent(in) :: dmb
+     type(amrex_distromap), intent(in) :: dma, dmb
      logical :: r
      r =  amrex_fi_distromap_issame(dma%p, dmb%p)
-   end function amrex_distromap_issame
+  end function amrex_distromap_issame
 
 end module amrex_distromap_module