diff --git a/Modules/beef_interface.f90 b/Modules/beef_interface.f90 index c00578f33..0657225b8 100644 --- a/Modules/beef_interface.f90 +++ b/Modules/beef_interface.f90 @@ -18,6 +18,7 @@ MODULE beef_interface beefrandinit, beefrandinitdef, beefensemble ! INTERFACE + ! SUBROUTINE beefx( r, g, e, dr, dg, addlda ) BIND(C, NAME="beefx_") USE iso_c_binding REAL (C_DOUBLE), INTENT(INOUT) :: r, g, e, dr, dg @@ -65,4 +66,4 @@ MODULE beef_interface END INTERFACE ! END MODULE beef_interface -! \ No newline at end of file +! diff --git a/PW/src/beef.f90 b/PW/src/beef.f90 index f8280e236..2dba152d8 100644 --- a/PW/src/beef.f90 +++ b/PW/src/beef.f90 @@ -22,7 +22,6 @@ MODULE beef !real(DP), save :: ldaxc ! ! - ! real(DP), allocatable :: beefxc(:), energies(:) real(DP) :: ldaxc