1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
!
! Copyright (C) 2003-2009 A. Smogunov
! This file is distributed under the terms of the
! GNU General Public License. See the file `License'
! in the root directory of the present distribution,
! or http://www.gnu.org/copyleft/gpl.txt .
!
! Main program for conductance calculation.
! This program generalizes to US-PP the method of Choi and Ihm
! ( PRB 59, 2267 (1999) ).
! The ballistic conductance G is calculated via the
! Landauer formula ( G=e^2/h T ), where the total
! transmission T is obtained by solving the scattering
! problem.
program pwcond
USE mp_global, ONLY: mp_global_end
logical :: alldone
call do_cond (alldone)
#if defined(__MPI)
CALL mp_global_end()
#endif
STOP
end program pwcond
|
