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