From 636ee851c2afd9d75a2315c14b7f512d9084ca04 Mon Sep 17 00:00:00 2001 From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com> Date: Sun, 15 Feb 2026 18:34:33 +0000 Subject: [PATCH 1/2] Initial plan From ea5c9a7b28e7d97aa45541599564f01cd226253c Mon Sep 17 00:00:00 2001 From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com> Date: Sun, 15 Feb 2026 18:36:40 +0000 Subject: [PATCH 2/2] Address code review comments: fix imports, remove duplicate lock, fix spelling and indentation Co-authored-by: johanneshofmann87 <129625831+johanneshofmann87@users.noreply.github.com> --- Prog/QMC_runtime_var_mod.F90 | 21 +++++++++++++-------- Prog/main.F90 | 1 - 2 files changed, 13 insertions(+), 9 deletions(-) diff --git a/Prog/QMC_runtime_var_mod.F90 b/Prog/QMC_runtime_var_mod.F90 index 733f823e..f04764f1 100644 --- a/Prog/QMC_runtime_var_mod.F90 +++ b/Prog/QMC_runtime_var_mod.F90 @@ -32,6 +32,7 @@ Module QMC_runtime_var Use runtime_error_mod + Use iso_fortran_env, only: output_unit, error_unit #ifdef MPI Use mpi @@ -534,7 +535,7 @@ end subroutine set_ham_name !> ALF-project !> !> @brief -!> Bradcast of the QMC runtime variables +!> Broadcast of the QMC runtime variables !> ! !-------------------------------------------------------------------- @@ -582,17 +583,21 @@ subroutine read_and_broadcast_TEMPERING_var() implicit none - Integer :: ierr + Integer :: ierr, irank mpi_per_parameter_set = 1 ! Default value Tempering_calc_det = .true. ! Default value - OPEN(UNIT=5,FILE='parameters',STATUS='old',ACTION='read',IOSTAT=ierr) - IF (ierr /= 0) THEN - WRITE(error_unit,*) 'main: unable to open ',ierr - CALL Terminate_on_error(ERROR_FILE_NOT_FOUND,__FILE__,__LINE__) + + CALL MPI_COMM_RANK(MPI_COMM_WORLD, irank, ierr) + IF (irank == 0) THEN + OPEN(UNIT=5,FILE='parameters',STATUS='old',ACTION='read',IOSTAT=ierr) + IF (ierr /= 0) THEN + WRITE(error_unit,*) 'main: unable to open ',ierr + CALL Terminate_on_error(ERROR_FILE_NOT_FOUND,__FILE__,__LINE__) + END IF + READ(5,NML=VAR_TEMP) + CLOSE(5) END IF - READ(5,NML=VAR_TEMP) - CLOSE(5) CALL MPI_BCAST(N_exchange_steps ,1,MPI_INTEGER,0,MPI_COMM_WORLD,ierr) CALL MPI_BCAST(N_Tempering_frequency ,1,MPI_INTEGER,0,MPI_COMM_WORLD,ierr) CALL MPI_BCAST(mpi_per_parameter_set ,1,MPI_INTEGER,0,MPI_COMM_WORLD,ierr) diff --git a/Prog/main.F90 b/Prog/main.F90 index 7ba58218..aa8df783 100644 --- a/Prog/main.F90 +++ b/Prog/main.F90 @@ -482,7 +482,6 @@ Program Main else Call Langevin_HMC%set_Update_scheme(get_Langevin(), get_HMC() ) endif - call lock_QMC_runtime_settings() Call check_update_schemes_compatibility() #if defined(MPI)