Skip to content
Snippets Groups Projects
Commit 890f27b2 authored by Philipp Rüssmann's avatar Philipp Rüssmann
Browse files

small bugfix in array dimension of a MPI communication

parent 8afd1e03
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
source/KKRhost/tmatimp_newsolver.F90
+ 1
− 1
View file @ 890f27b2
......@@ -508,7 +508,7 @@ contains
i1 = (korbit+1)*lmmax0d*(korbit+1)*lmmax0d*ihost
! Allocation of temp for TMATLL
allocate (temp(lmmaxd,lmmaxd,natomimp), stat=i_stat)
allocate (temp(lmmaxd,lmmaxd,ihost), stat=i_stat)
call memocc(i_stat, product(shape(temp))*kind(temp), 'temp', 'tmatimp_newsolver')
temp = czero
call mpi_allreduce(tmatll,temp,i1,mpi_double_complex,mpi_sum,mpi_comm_world,ierr)
......
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