Commit 3ff5a67d authored by Gregor Michalicek's avatar Gregor Michalicek

Fixed missing dimension of rh array in cdn_ovlp call.

Also in this commit: Small syntax correction in mpi/mpi_bc_all.F90.
parent 3b4ce373
......@@ -247,7 +247,7 @@
!---> pk non-collinear
ELSE IF (input%ctail) THEN
CALL cdnovlp(mpi,&
sphhar,stars,atoms,sym, dimension,vacuum, cell, input,oneD,l_st, jspin,rh, qpw,rhtxy,rho,rht)
sphhar,stars,atoms,sym, dimension,vacuum, cell, input,oneD,l_st, jspin,rh(:,:,jspin), qpw,rhtxy,rho,rht)
ELSE IF (mpi%irank.EQ.0) THEN
DO ityp = 1,atoms%ntype
qpw(1,jspin) = qpw(1,jspin) + qint(ityp,jspin)/input%jspins/cell%volint
......
......@@ -48,7 +48,7 @@ CONTAINS
EXTERNAL MPI_BCAST
IF (mpi%irank.EQ.0) THEN
i(1)=1 ; i(2)=input$coretail_lmax;i(3)=atoms%ntype ; i(5)=1 ; i(6)=input%isec1
i(1)=1 ; i(2)=input%coretail_lmax;i(3)=atoms%ntype ; i(5)=1 ; i(6)=input%isec1
i(7)=stars%ng2 ; i(8)=stars%ng3 ; i(9)=vacuum%nmz ; i(10)=vacuum%nmzxy ; i(11)=obsolete%lepr
i(12)=input%jspins ; i(13)=vacuum%nvac ; i(14)=input%itmax ; i(15)=sliceplot%kk ; i(16)=vacuum%layers
i(17)=sliceplot%nnne ; i(18)=banddos%ndir ; i(19)=stars%mx1 ; i(20)=stars%mx2 ; i(21)=stars%mx3
......@@ -85,7 +85,7 @@ CONTAINS
input%jspins=i(12) ; vacuum%nvac=i(13) ; input%itmax=i(14) ; sliceplot%kk=i(15) ; vacuum%layers=i(16)
stars%ng2=i(7) ; stars%ng3=i(8) ; vacuum%nmz=i(9) ; vacuum%nmzxy=i(10) ; obsolete%lepr=i(11)
atoms%ntype=i(3) ; input%isec1=i(6)
input$coretail_lmax=i(2)
input%coretail_lmax=i(2)
!
CALL MPI_BCAST(r,SIZE(r),MPI_DOUBLE_PRECISION,0,mpi%mpi_comm,ierr)
rdum=aMix_VHSE( r(27) ); rdum=omega_VHSE( r(28) )
......
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