ICODE-ADC/lammps
4
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]') &[Fortran/fix_external_set_energy_peratom]')
END IF END IF
Cid = f2c_string(id) 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_fix_external_set_energy_peratom(self%handle, Cid, Ceng)
CALL lammps_free(Cid) CALL lammps_free(Cid)
END SUBROUTINE lmp_fix_external_set_energy_peratom END SUBROUTINE lmp_fix_external_set_energy_peratom