From 44e6078437f5a7806326707c62b02e8bfcb04f6c Mon Sep 17 00:00:00 2001 From: Axel Kohlmeyer Date: Thu, 22 Dec 2022 22:01:48 -0500 Subject: [PATCH] fix for bug detected by gfortran 12.2 --- fortran/lammps.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fortran/lammps.f90 b/fortran/lammps.f90 index e25b5ec206..b99f1170ff 100644 --- a/fortran/lammps.f90 +++ b/fortran/lammps.f90 @@ -3033,7 +3033,7 @@ CONTAINS &[Fortran/fix_external_set_energy_peratom]') END IF Cid = f2c_string(id) - Ceng = C_LOC(eng) + Ceng = C_LOC(eng(1)) CALL lammps_fix_external_set_energy_peratom(self%handle, Cid, Ceng) CALL lammps_free(Cid) END SUBROUTINE lmp_fix_external_set_energy_peratom