tx258/lammps-gran-kokkos
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix for bug detected by gfortran 12.2

Browse Source
This commit is contained in:
Axel Kohlmeyer
2022-12-22 22:01:48 -05:00
parent 885108e95b
commit 44e6078437
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
fortran/lammps.f90
View File

@ -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