From ffdf0ad2d67beee3bff44354b173afe524cf4c1d Mon Sep 17 00:00:00 2001
From: David Minton <daminton@purdue.edu>
Date: Thu, 13 May 2021 17:32:29 -0400
Subject: [PATCH] Fixed mismatched interface

---
 src/modules/module_interfaces.f90 | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/src/modules/module_interfaces.f90 b/src/modules/module_interfaces.f90
index 41e2ed20d..29b4fb42e 100644
--- a/src/modules/module_interfaces.f90
+++ b/src/modules/module_interfaces.f90
@@ -1581,15 +1581,10 @@ end function util_solve_linear_system
 
          function util_minimize_bfgs(f, N, x1, eps) result(fnum)
             use swiftest_globals
+            use lambda_function
             implicit none
             integer(I4B), intent(in) :: N
-            interface 
-               pure function f(x) ! Objective function template
-                  import DP
-                  real(DP), dimension(:), intent(in) :: x
-                  real(DP) :: f
-               end function f
-            end interface
+            class(lambda_obj), intent(in) :: f
             real(DP), dimension(:), intent(inout) :: x1
             real(DP), intent(in) :: eps
             integer(I4B) :: fnum