IffGit has a new shared runner for building Docker images in GitLab CI. Visit https://iffgit.fz-juelich.de/examples/ci-docker-in-docker for more details.

Commit 77df507d authored by Matthias Redies's avatar Matthias Redies
Browse files

change mpi interface

parent 64322b1a
......@@ -398,7 +398,7 @@ CONTAINS
IF (mpi%irank==0) THEN
CALL cdnmt(input%jspins,atoms,sphhar,noco,jsp_start,jsp_end,&
CALL cdnmt(mpi, input%jspins,atoms,sphhar,noco,jsp_start,jsp_end,&
IF (l_coreSpec) CALL corespec_ddscs(jspin,input%jspins)
DO ispin = jsp_start,jsp_end
......@@ -429,10 +429,14 @@ CONTAINS
call zPrime%free()
call zPrime%init(zMat)
do basis_idx = 1,size(lapw%gvec,dim=2)
fac = kpt(dim_idx) + lapw%gvec(dim_idx,basis_idx,1)
zPrime%data_r(basis_idx,:) = fac * zPrime%data_r(basis_idx,:)
if(zPrime%l_real) then
zPrime%data_r(basis_idx,:) = fac * zPrime%data_r(basis_idx,:)
zPrime%data_c(basis_idx,:) = fac * zPrime%data_c(basis_idx,:)
end subroutine set_zPrime
END MODULE m_metagga
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