mirror of https://gitlab.com/QEF/q-e.git
Cosmetic changes
This commit is contained in:
parent
e1400d1e7a
commit
c3aa3c61a9
|
@ -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
|
||||
!
|
||||
!
|
||||
|
|
|
@ -22,7 +22,6 @@ MODULE beef
|
|||
!real(DP), save :: ldaxc
|
||||
!
|
||||
!
|
||||
!
|
||||
real(DP), allocatable :: beefxc(:), energies(:)
|
||||
real(DP) :: ldaxc
|
||||
|
||||
|
|
Loading…
Reference in New Issue