Commit 67d3bb33 authored by Matthias Redies's avatar Matthias Redies

bugfixes

parent f2bb29f0
......@@ -60,6 +60,7 @@ CONTAINS
INTEGER, ALLOCATABLE :: i_b(:)
! ..
! .. External Subroutines
#ifdef CPP_MPI
EXTERNAL CPP_BLAS_scopy,CPP_BLAS_ccopy
CALL timestart("mpi_col_den")
......
......@@ -823,13 +823,13 @@ c call MPI_BARRIER(mpi_communicator,ierr)
if(mod(ikpt-1,isize).eq.cpu_index)then
call MPI_RECV(knorm(ikpt,1:num_bands),num_bands,
& CPP_MPI_REAL,cpu_index,
& ikpt,mpi_communicatior,stt,mpiierr)
& ikpt,mpi_communicator,stt,mpiierr)
endif !processors
enddo !ikpt
call MPI_RECV(wannierfunc_temp(1:num_wann,1:mesh),
& num_wann*mesh,
& CPP_MPI_COMPLEX,cpu_index,
& cpu_index+fullnkpts,mpi_communicatior,stt,mpiierr)
& cpu_index+fullnkpts,mpi_communicator,stt,mpiierr)
wannierfunc(:,:)=wannierfunc(:,:)+
& wannierfunc_temp(:,:)
......@@ -842,12 +842,12 @@ c call MPI_BARRIER(mpi_communicator,ierr)
do ikpt=1,fullnkpts
if(mod(ikpt-1,isize).eq.irank)then
call MPI_SEND(knorm(ikpt,1:num_bands),num_bands,
& CPP_MPI_REAL,0,ikpt,mpi_communicatior,mpiierr)
& CPP_MPI_REAL,0,ikpt,mpi_communicator,mpiierr)
endif !processors
enddo !ikpt
call MPI_SEND(wannierfunc(1:num_wann,1:mesh),
& num_wann*mesh,
& CPP_MPI_COMPLEX,0,fullnkpts+irank,mpi_communicatior,mpiierr)
& CPP_MPI_COMPLEX,0,fullnkpts+irank,mpi_communicator,mpiierr)
......@@ -1042,7 +1042,7 @@ c*****************************************************************
deallocate(u_matrix)
#ifdef CPP_MPI
call MPI_BARRIER(mpi_communicatior,mpiierr)
call MPI_BARRIER(mpi_communicator,mpiierr)
#endif
110 continue ! end of cycle by spins
......@@ -1052,7 +1052,7 @@ c*****************************************************************
deallocate ( ff,gg)
#ifdef CPP_MPI
call MPI_BARRIER(mpi_communicatior,mpiierr)
call MPI_BARRIER(mpi_communicator,mpiierr)
#endif
END SUBROUTINE wann_plot_um_dat
......
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