1! ---
2! Copyright (C) 1996-2016	The SIESTA group
3!  This file is distributed under the terms of the
4!  GNU General Public License: see COPYING in the top directory
5!  or http://www.gnu.org/copyleft/gpl.txt .
6! See Docs/Contributors.txt for a list of contributors.
7! ---
8module m_dipol
9  use precision, only: dp
10	implicit none
11
12  public
13
14  real(dp):: dipol(3)   ! Electric dipole vector
15
16end module m_dipol
17
18
19
20