diff --git a/src/dnc/dnc_hfoperator.f90 b/src/dnc/dnc_hfoperator.f90 index fd5e0093..5e9614a0 100644 --- a/src/dnc/dnc_hfoperator.f90 +++ b/src/dnc/dnc_hfoperator.f90 @@ -296,7 +296,7 @@ end subroutine hfoperatordc subroutine mpi_hfoperatordc(oneElecO) use allmod use quick_gaussian_class_module - use quick_cutoff_module, only: cshell_density_cutoff + use quick_cutoff_module, only: cshell_density_cutoff use quick_cshell_eri_module, only: getCshellEriEnergy use mpi implicit double precision(a-h,o-z) diff --git a/src/mpi_setup.f90 b/src/mpi_setup.f90 index 307981bf..8dbbad67 100644 --- a/src/mpi_setup.f90 +++ b/src/mpi_setup.f90 @@ -588,8 +588,10 @@ subroutine get_mpi_ssw else do i=1,mpisize-1 - call MPI_RECV(quick_xcg_tmp%tmp_sswt,quick_dft_grid%init_ngpts,mpi_double_precision,i,i,MPI_COMM_WORLD,QUICK_MPI_STATUS,IERROR) - call MPI_RECV(quick_xcg_tmp%tmp_weight,quick_dft_grid%init_ngpts,mpi_double_precision,i,i,MPI_COMM_WORLD,QUICK_MPI_STATUS,IERROR) + call MPI_RECV(quick_xcg_tmp%tmp_sswt,quick_dft_grid%init_ngpts,mpi_double_precision,i,i,MPI_COMM_WORLD,& + QUICK_MPI_STATUS,IERROR) + call MPI_RECV(quick_xcg_tmp%tmp_weight,quick_dft_grid%init_ngpts,mpi_double_precision,i,i,MPI_COMM_WORLD,& + QUICK_MPI_STATUS,IERROR) do j=1,quick_dft_grid%init_ngpts quick_xcg_tmp%sswt(j)=quick_xcg_tmp%sswt(j)+quick_xcg_tmp%tmp_sswt(j)