ICODE-ADC/lammps
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

silence compiler warning

Browse Source
This commit is contained in:
Axel Kohlmeyer
2024-01-26 16:47:22 -05:00
parent 0a1362654b
commit 5c43b56699
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

@ -1673,7 +1673,7 @@ CONTAINS
CHARACTER(LEN=*), INTENT(IN) :: name CHARACTER(LEN=*), INTENT(IN) :: name
REAL(KIND=c_double), INTENT(IN) :: val REAL(KIND=c_double), INTENT(IN) :: val
INTEGER :: err INTEGER :: err
TYPE(c_ptr) :: Cstr, Cname TYPE(c_ptr) :: Cname
Cname = f2c_string(name) Cname = f2c_string(name)
err = lammps_set_internal_variable(self%handle, Cname, val) err = lammps_set_internal_variable(self%handle, Cname, val)