1
2! Copyright (C) 2014 J. K. Dewhurst, S. Sharma and E. K. U. Gross.
3! This file is distributed under the terms of the GNU General Public License.
4! See the file COPYING for license details.
5
6subroutine potkst
7use modmain
8use modtddft
9implicit none
10! adiabatic approximation to the exchange-correlation potential
11call potks(.true.)
12end subroutine
13
14