Remove old Fortran implementation.

3 files changed, 0 insertions, 64 deletions

diff --git a/Source/FortranInterface/Make.package b/Source/FortranInterface/Make.package
index d7b17fa56..e7710b104 100644
--- a/Source/FortranInterface/Make.package
+++ b/Source/FortranInterface/Make.package
@@ -1,5 +1,4 @@
 CEXE_headers   += WarpX_f.H
-F90EXE_sources += WarpX_f.F90
 
 INCLUDE_LOCATIONS += $(WARPX_HOME)/Source/FortranInterface
 VPATH_LOCATIONS   += $(WARPX_HOME)/Source/FortranInterface
diff --git a/Source/FortranInterface/WarpX_f.F90 b/Source/FortranInterface/WarpX_f.F90
deleted file mode 100644
index 71b1ae9fa..000000000
--- a/Source/FortranInterface/WarpX_f.F90
+++ /dev/null
@@ -1,59 +0,0 @@
-! Copyright 2019 Andrew Myers, Axel Huebl, David Grote
-! Ligia Diana Amorim, Mathieu Lobet, Maxence Thevenet
-! Remi Lehe, Weiqun Zhang
-!
-! This file is part of WarpX.
-!
-! License: BSD-3-Clause-LBNL
-
-
-module warpx_module
-
-  use iso_c_binding
-  use amrex_fort_module, only : amrex_real, amrex_spacedim
-
-  implicit none
-
-contains
-
-  subroutine warpx_build_buffer_masks (lo, hi, msk, mlo, mhi, gmsk, glo, ghi, ng) &
-       bind(c, name='warpx_build_buffer_masks')
-    integer, dimension(3), intent(in) :: lo, hi, mlo, mhi, glo, ghi
-    integer, intent(in   ) :: gmsk(glo(1):ghi(1),glo(2):ghi(2),glo(3):ghi(3))
-    integer, intent(inout) ::  msk(mlo(1):mhi(1),mlo(2):mhi(2),mlo(3):mhi(3))
-    integer, intent(in) :: ng
-
-    integer :: i,j,k
-
-    if (amrex_spacedim .eq. 2) then
-
-       k = lo(3)
-       do    j = lo(2), hi(2)
-          do i = lo(1), hi(1)
-             if (any(gmsk(i-ng:i+ng,j-ng:j+ng,k).eq.0)) then
-                msk(i,j,k) = 0
-             else
-                msk(i,j,k) = 1
-             end if
-          end do
-       end do
-
-    else
-
-       do       k = lo(3), hi(3)
-          do    j = lo(2), hi(2)
-             do i = lo(1), hi(1)
-                if (any(gmsk(i-ng:i+ng,j-ng:j+ng,k-ng:k+ng).eq.0)) then
-                   msk(i,j,k) = 0
-                else
-                   msk(i,j,k) = 1
-                end if
-             end do
-          end do
-       end do
-
-    end if
-
-  end subroutine warpx_build_buffer_masks
-
-end module warpx_module
diff --git a/Source/FortranInterface/WarpX_f.H b/Source/FortranInterface/WarpX_f.H
index 74fd9f379..d42ccdda5 100644
--- a/Source/FortranInterface/WarpX_f.H
+++ b/Source/FortranInterface/WarpX_f.H
@@ -134,10 +134,6 @@ extern "C"
 
 #endif
 
-    void warpx_build_buffer_masks (const int* lo, const int* hi,
-                                   int* msk, const int* mlo, const int* mhi,
-                                   const int* gmsk, const int* glo, const int* ghi, const int* ng);
-
 #ifdef __cplusplus
 }
 #endif