1!
2! Copyright (C) 2003-2009 A. Smogunov
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!
8! Main program for conductance calculation.
9! This program generalizes to US-PP the method of Choi and Ihm
10! ( PRB 59, 2267 (1999) ).
11! The ballistic conductance G is calculated via the
12! Landauer formula ( G=e^2/h T ), where the total
13! transmission T is obtained by solving the scattering
14! problem.
15
16program pwcond
17
18  USE mp_global, ONLY: mp_global_end
19
20  logical :: alldone
21
22  call do_cond (alldone)
23
24#if defined(__MPI)
25  CALL mp_global_end()
26#endif
27
28  STOP
29
30end program pwcond
31
32