No reason not to execute mp_startup also if parallelism is absent,

but one good reason to: mp_startup reads command-line options, including
input file


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9917 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2013-02-01 12:48:50 +00:00
parent a779bd27c7
commit 54b3403155
1 changed files with 0 additions and 3 deletions

View File

@ -34,11 +34,8 @@ PROGRAM pwscf
!
CHARACTER(len=256) :: dirname
!
#ifdef __MPI
!
CALL mp_startup ( )
!
#endif
CALL environment_start ( 'PWSCF' )
!
IF ( ionode ) WRITE( unit = stdout, FMT = 9010 ) &