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