Fixed mismatched interface

MintonGroup · May 13, 2021 · ffdf0ad · ffdf0ad
1 parent 37a5250
commit ffdf0ad
Showing 1 changed file with 2 additions and 7 deletions.
diff --git 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