mirror of https://gitlab.com/QEF/q-e.git
Fixed a bug: the TDDFPT code was crashing in the parallel execution due to modifications of the Environ part.
git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@11009 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
59422790e5
commit
662072b144
|
@ -66,6 +66,7 @@ SUBROUTINE bcast_lr_input
|
|||
CALL mp_bcast (ecutfock, ionode_id, world_comm )
|
||||
CALL mp_bcast (d0psi_rs, ionode_id,world_comm )
|
||||
CALL mp_bcast (tddfpt, ionode_id, world_comm )
|
||||
CALL plugin_arguments_bcast(ionode_id, world_comm)
|
||||
#ifdef __ENVIRON
|
||||
IF (use_environ) CALL environ_bcast()
|
||||
#endif
|
||||
|
@ -99,7 +100,7 @@ SUBROUTINE bcast_lr_input
|
|||
CALL mp_bcast (conv_assistant, ionode_id, world_comm )
|
||||
CALL mp_bcast (if_dft_spectrum, ionode_id, world_comm )
|
||||
CALL mp_barrier(world_comm)
|
||||
|
||||
|
||||
#endif
|
||||
RETURN
|
||||
END SUBROUTINE bcast_lr_input
|
||||
|
|
|
@ -157,8 +157,7 @@ SUBROUTINE lr_readin
|
|||
! ------------------------------------------------------
|
||||
! Reading possible plugin arguments -environ -plumed ...
|
||||
! ------------------------------------------------------
|
||||
IF(ionode) CALL plugin_arguments()
|
||||
CALL plugin_arguments_bcast(ionode_id, intra_image_comm)
|
||||
CALL plugin_arguments()
|
||||
! ------------------------------------------------------
|
||||
!
|
||||
! Reading the namelist lr_input
|
||||
|
@ -233,7 +232,7 @@ SUBROUTINE lr_readin
|
|||
!
|
||||
lr_io_level = 1
|
||||
END SELECT
|
||||
|
||||
|
||||
#ifdef __MPI
|
||||
ENDIF
|
||||
!
|
||||
|
|
Loading…
Reference in New Issue