Commit c00a27c3 authored by Daniel Wortmann's avatar Daniel Wortmann

More bugfixes in mpi_col_den

parent 62f7bb81
......@@ -332,7 +332,7 @@ CONTAINS
ALLOCATE(c_b(n))
CALL MPI_REDUCE(den%pw(:,3),c_b,n,CPP_MPI_COMPLEX,MPI_SUM,0, MPI_COMM_WORLD,ierr)
IF (mpi%irank.EQ.0) THEN
CALL CPP_BLAS_ccopy(n, c_b, 1, den%pw(:,3), 1)
den%pw(:,3)=RESHAPE(c_b,(/n/))
ENDIF
DEALLOCATE (c_b)
!
......@@ -352,7 +352,7 @@ CONTAINS
ALLOCATE(r_b(n))
CALL MPI_REDUCE(den%vacz(:,:,3:4),r_b,n,CPP_MPI_REAL,MPI_SUM,0, MPI_COMM_WORLD,ierr)
IF (mpi%irank.EQ.0) THEN
CALL CPP_BLAS_ccopy(n, r_b, 1, den%vacz(:,:,3:4), 1)
den%vacz(:,:,3:4)=RESHAPE(r_b,SHAPE(den%vacz(:,:,3:4)))
ENDIF
DEALLOCATE (r_b)
......
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