Commit c00a27c3 authored by Daniel Wortmann's avatar Daniel Wortmann

More bugfixes in mpi_col_den

parent 62f7bb81
...@@ -332,7 +332,7 @@ CONTAINS ...@@ -332,7 +332,7 @@ CONTAINS
ALLOCATE(c_b(n)) ALLOCATE(c_b(n))
CALL MPI_REDUCE(den%pw(:,3),c_b,n,CPP_MPI_COMPLEX,MPI_SUM,0, MPI_COMM_WORLD,ierr) 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 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 ENDIF
DEALLOCATE (c_b) DEALLOCATE (c_b)
! !
...@@ -352,7 +352,7 @@ CONTAINS ...@@ -352,7 +352,7 @@ CONTAINS
ALLOCATE(r_b(n)) ALLOCATE(r_b(n))
CALL MPI_REDUCE(den%vacz(:,:,3:4),r_b,n,CPP_MPI_REAL,MPI_SUM,0, MPI_COMM_WORLD,ierr) 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 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 ENDIF
DEALLOCATE (r_b) 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