Commit 934aafd6 authored by Miriam Hinzen's avatar Miriam Hinzen

Extend functionality of vmts to cover the Yukawa case

parent 6085af3a
...@@ -178,7 +178,7 @@ CONTAINS ...@@ -178,7 +178,7 @@ CONTAINS
#ifdef CPP_MPI #ifdef CPP_MPI
CALL MPI_BCAST( den%mt, atoms%jmtd*(1+sphhar%nlhd) * atoms%ntype * dimension%jspd, MPI_DOUBLE_PRECISION, 0, mpi%mpi_comm, ierr ) CALL MPI_BCAST( den%mt, atoms%jmtd*(1+sphhar%nlhd) * atoms%ntype * dimension%jspd, MPI_DOUBLE_PRECISION, 0, mpi%mpi_comm, ierr )
#endif #endif
CALL vmts( mpi, stars, sphhar, atoms, sym, cell, oneD, vCoul%pw(:,ispin), den%mt(:,0:,:,ispin), & CALL vmts( input, mpi, stars, sphhar, atoms, sym, cell, oneD, vCoul%pw(:,ispin), den%mt(:,0:,:,ispin), &
yukawa_residual, vCoul%mt(:,0:,:,ispin) ) yukawa_residual, vCoul%mt(:,0:,:,ispin) )
CALL timestop( "MT-spheres" ) CALL timestop( "MT-spheres" )
......
This diff is collapsed.
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