mirror of https://gitlab.com/QEF/q-e.git
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:
parent
dea199b670
commit
9dadb615e9
|
@ -53,12 +53,12 @@ MODULE read_input
|
||||||
CALL mp_bcast( ierr, ionode_id, intra_image_comm )
|
CALL mp_bcast( ierr, ionode_id, intra_image_comm )
|
||||||
IF ( ierr > 0 ) CALL errore('read_input', 'opening input file',ierr)
|
IF ( ierr > 0 ) CALL errore('read_input', 'opening input file',ierr)
|
||||||
CALL mp_bcast( xmlinput, ionode_id, intra_image_comm )
|
CALL mp_bcast( xmlinput, ionode_id, intra_image_comm )
|
||||||
CALL mp_bcast( attr, ionode_id, intra_image_comm )
|
|
||||||
!
|
!
|
||||||
CALL reset_input_checks ()
|
CALL reset_input_checks ()
|
||||||
!
|
!
|
||||||
IF ( xmlinput ) THEN
|
IF ( xmlinput ) THEN
|
||||||
!
|
!
|
||||||
|
CALL mp_bcast( attr, ionode_id, intra_image_comm )
|
||||||
CALL read_xml ( prog, attr )
|
CALL read_xml ( prog, attr )
|
||||||
!
|
!
|
||||||
ELSE
|
ELSE
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
#!/bin/sh -x
|
#!/bin/sh -x
|
||||||
|
|
||||||
version=6.2
|
version=6.2
|
||||||
revision=13895
|
revision=13897
|
||||||
user=giannozz
|
user=giannozz
|
||||||
tempdir=$HOME/tempdir
|
tempdir=$HOME/tempdir
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue