From 001247ba2f8d25a72a25404fc1eacb8abc5d76d2 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Mon, 15 Nov 2021 15:23:47 -0500 Subject: [PATCH] Misc. formatting fixes --- src/io/io.f90 | 1 - src/kick/kick.f90 | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/src/io/io.f90 b/src/io/io.f90 index ebdd68531..0266af0bc 100644 --- a/src/io/io.f90 +++ b/src/io/io.f90 @@ -1351,7 +1351,6 @@ subroutine io_read_in_cb(self, param) close(iu, err = 667, iomsg = errmsg) if (ierr == 0) then - if (self%j2rp2 /= 0.0_DP) param%loblatecb = .true. if (param%rmin < 0.0) param%rmin = self%radius diff --git a/src/kick/kick.f90 b/src/kick/kick.f90 index 891936f20..c3e37d927 100644 --- a/src/kick/kick.f90 +++ b/src/kick/kick.f90 @@ -189,7 +189,7 @@ module subroutine kick_getacch_int_all_triangular_pl(npl, nplm, x, Gmass, radius end do !$omp end parallel do else - !$omp parallel do default(private) schedule(static)& + !$omp parallel do default(private) schedule(static)& !$omp shared(npl, nplm, x, Gmass, radius) & !$omp lastprivate(rji2, xr, yr, zr) & !$omp reduction(+:ahi) &