-
Notifications
You must be signed in to change notification settings - Fork 22
/
Copy pathplugin_add_potential.f90
35 lines (34 loc) · 1.03 KB
/
plugin_add_potential.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
!
! Copyright (C) 2015 Quantum ESPRESSO group
! This file is distributed under the terms of the
! GNU General Public License. See the file `License'
! in the root directory of the present distribution,
! or http://www.gnu.org/copyleft/gpl.txt .
!
!----------------------------------------------------------------------------
!----------------------------------------------------------------------------
SUBROUTINE plugin_add_potential( v )
!----------------------------------------------------------------------------
! This routine is used to add the plugin potentials to the total electronic potential
!
USE io_global, ONLY : stdout, ionode
USE kinds, ONLY : DP
!
USE fft_base, ONLY : dfftp
USE electrons_base, ONLY : nspin
!
USE plugin_flags
!
! ***Environ MODULES BEGIN***
! ***Environ MODULES END***
!
IMPLICIT NONE
!
REAL(DP), INTENT(INOUT) :: v(dfftp%nnr,nspin)
!
! ***Environ VARIABLES BEGIN***
! ***Environ VARIABLES END***
!
! ***Environ CALLS BEGIN***
! ***Environ CALLS END***
END SUBROUTINE plugin_add_potential