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 ) 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

View File

@ -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