1! 2! Copyright (C) 2001-2013 Quantum ESPRESSO 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! 8! 9! 10subroutine start_pw4gww 11 ! 12 ! Usage: [mpirun, mpprun, whatever] postproc [-npool N] 13 ! 14 ! Wrapper routine for postprocessing initialization 15 ! 16 USE mp_global, ONLY: mp_startup 17 USE environment, ONLY: environment_start 18 implicit none 19 character(len=9) :: code = 'PW4GWW' 20 ! 21#if defined(__MPI) 22 CALL mp_startup ( ) 23#endif 24 CALL environment_start ( code ) 25 ! 26 return 27end subroutine start_pw4gww 28