From b316ae378a081fcf3550c5561e28cd885d4b8c91 Mon Sep 17 00:00:00 2001 From: "Kurt A. O'Hearn" <1138669+ohearnk@users.noreply.github.com> Date: Wed, 20 Mar 2024 22:15:25 -0400 Subject: [PATCH] Fix syntax errors (line continuations). --- src/dnc/dnc_hfoperator.f90 | 2 +- src/mpi_setup.f90 | 6 ++++-- 2 files changed, 5 insertions(+), 3 deletions(-) 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)