1!
2! Copyright (C) 2004 PWSCF group
3! This file is distributed under the terms of the
4! GNU General Public License. See the file `License'
5! in the root directory of the present distribution,
6! or http://www.gnu.org/copyleft/gpl.txt .
7!
8function vext(r)
9  use kinds, only : DP
10  implicit none
11  real(DP) ::    vext,r
12  vext=0.0_dp
13  return
14end function vext
15