Commit bafbd1e2 authored by Gregor Michalicek's avatar Gregor Michalicek

Added broadcast of obsolete%chng to mpi_bc_all

This broadcast was missing for the use of this variable in vgen/vmtxcg.F90, line 292
parent 12178eb2
......@@ -41,7 +41,7 @@ CONTAINS
REAL rdum
! .. Local Arrays ..
INTEGER i(39),ierr(3)
REAL r(29)
REAL r(30)
LOGICAL l(43)
! ..
! .. External Subroutines..
......@@ -64,7 +64,7 @@ CONTAINS
r(15)=input%efield%sigma ; r(16)=input%efield%zsigma ; r(17)=noco%mix_b; r(18)=cell%vol
r(19)=cell%volint ; r(20)=hybrid%gcutm1 ; r(21)=hybrid%tolerance1 ; r(22)=hybrid%gcutm2
r(23)=hybrid%tolerance2 ; r(24)=input%delgau ; r(25)=input%tkb ; r(26)=input%efield%vslope
r(27)=aMix_VHSE() ; r(28)=omega_VHSE() ; r(29)=input%minDistance
r(27)=aMix_VHSE() ; r(28)=omega_VHSE() ; r(29)=input%minDistance ; r(30)=obsolete%chng
l(1)=input%eonly ; l(2)=input%l_useapw ; l(3)=input%secvar ; l(4)=sym%zrfs ; l(5)=input%film
l(6)=sym%invs ; l(7)=sym%invs2 ; l(8)=input%l_bmt ; l(9)=input%l_f ; l(10)=input%cdinf
......@@ -92,7 +92,7 @@ CONTAINS
!
CALL MPI_BCAST(r,SIZE(r),MPI_DOUBLE_PRECISION,0,mpi%mpi_comm,ierr)
rdum=aMix_VHSE( r(27) ); rdum=omega_VHSE( r(28) )
input%minDistance=r(29)
input%minDistance=r(29) ; obsolete%chng=r(30)
hybrid%tolerance2=r(23) ; input%delgau=r(24) ; input%tkb=r(25) ; input%efield%vslope=r(26)
cell%volint=r(19) ; hybrid%gcutm1=r(20) ; hybrid%tolerance1=r(21) ; hybrid%gcutm2=r(22)
input%efield%sigma=r(15) ; input%efield%zsigma=r(16); noco%mix_b=r(17); cell%vol=r(18);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment