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