scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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:
timrov 2014-05-28 13:08:02 +00:00
parent 59422790e5
commit 662072b144
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
TDDFPT/src/bcast_lr_input.f90
View File

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

3
TDDFPT/src/lr_readin.f90
View File

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