18 #include "./base/base_uses.f90"
22 CHARACTER(len=*),
PARAMETER,
PRIVATE :: moduleN =
'fist_efield_types'
26 LOGICAL :: apply_field = .false.
27 LOGICAL :: displacement = .false.
28 REAL(kind=
dp) :: strength
29 REAL(kind=
dp),
DIMENSION(3) :: polarisation
30 REAL(kind=
dp),
DIMENSION(3) :: dfilter
51 TYPE(section_vals_type),
POINTER :: input_section
54 REAL(kind=
dp),
DIMENSION(:),
POINTER :: pp
55 TYPE(section_vals_type),
POINTER :: tmp_section
57 IF (.NOT.
ASSOCIATED(efield))
ALLOCATE (efield)
62 IF (efield%apply_field)
THEN
64 efield%polarisation(1:3) = pp(1:3)
66 efield%dfilter(1:3) = pp(1:3)
subroutine, public read_efield_section(input_section, efield)
Read input section PERIODIC_EFIELD.
Defines the basic variable types.
integer, parameter, public dp