Workaround for Intel 17 + Intel MPI: do not broadcast "attr" unless input

is read from xml file (which never happens and will soon disappear). The
broadcast hangs for messages of size iotk_attrlenx (65536)


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13897 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2017-10-05 09:07:12 +00:00
parent dea199b670
commit 9dadb615e9
2 changed files with 2 additions and 2 deletions

View File

@ -53,12 +53,12 @@ MODULE read_input
CALL mp_bcast( ierr, ionode_id, intra_image_comm )
IF ( ierr > 0 ) CALL errore('read_input', 'opening input file',ierr)
CALL mp_bcast( xmlinput, ionode_id, intra_image_comm )
CALL mp_bcast( attr, ionode_id, intra_image_comm )
!
CALL reset_input_checks ()
!
IF ( xmlinput ) THEN
!
CALL mp_bcast( attr, ionode_id, intra_image_comm )
CALL read_xml ( prog, attr )
!
ELSE

View File

@ -1,7 +1,7 @@
#!/bin/sh -x
version=6.2
revision=13895
revision=13897
user=giannozz
tempdir=$HOME/tempdir