From 2abdd0b6c77625288bc6cc28fefd0c7773b6729a Mon Sep 17 00:00:00 2001 From: Jason Christopherson Date: Mon, 25 Mar 2024 20:56:19 -0500 Subject: [PATCH] Clean up --- src/fstats_bootstrap.f90 | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/fstats_bootstrap.f90 b/src/fstats_bootstrap.f90 index 88990e9..7ed6efa 100644 --- a/src/fstats_bootstrap.f90 +++ b/src/fstats_bootstrap.f90 @@ -203,7 +203,6 @@ function bootstrap(stat, x, method, nsamples, alpha) result(rst) rst%population(1) = rst%statistic_value ! Resampling Process - call random_init(.false., .true.) #ifdef USEOPENMP ! Use OpenMP to run operations in parallel !$OMP PARALLEL DO PRIVATE(xn) SHARED(rst) @@ -370,7 +369,6 @@ subroutine bootstrap_linear_least_squares(order, intercept, x, y, & allcoeffs(:,1) = coeffs ! Cycle over each data set and perform the fit - call random_init(.false., .true.) #ifdef USEOPENMP !$OMP PARALLEL DO PRIVATE(fLocal, yLocal, rLocal) SHARED(allcoeffs) do i = 2, ns @@ -583,7 +581,6 @@ subroutine bootstrap_nonlinear_least_squares(fun, x, y, params, ymod, resid, & end do ! Cycle over each data set and perform the fit - call random_init(.false., .true.) #ifdef USEOPENMP !$OMP PARALLEL DO do i = 2, ns