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

silence compiler warnings

Browse Source
This commit is contained in:
Axel Kohlmeyer
2024-09-06 14:00:27 -04:00
parent f179f2a80d
commit 42a7294bc1
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
fortran/lammps.f90
View File

@ -1443,7 +1443,7 @@ CONTAINS
IF (SIZE_TAGINT == 8) THEN IF (SIZE_TAGINT == 8) THEN
Cptr = C_LOC(id) Cptr = C_LOC(id)
ELSE ELSE
id32 = id id32 = INT(id, c_int)
Cptr = C_LOC(id32) Cptr = C_LOC(id32)
END IF END IF
lmp_map_atom_big = lammps_map_atom(self%handle, Cptr) + 1 lmp_map_atom_big = lammps_map_atom(self%handle, Cptr) + 1
@ -2604,6 +2604,8 @@ CONTAINS
TYPE(c_ptr) :: Cid, Ctype, Cx, Cv, Cimage TYPE(c_ptr) :: Cid, Ctype, Cx, Cv, Cimage
INTEGER(c_int) :: tagint_size, atoms_created INTEGER(c_int) :: tagint_size, atoms_created
Ctype = c_null_ptr
Cx = c_null_ptr
! type is actually NOT optional, but we can't make id optional without it, ! type is actually NOT optional, but we can't make id optional without it,
! so we check at run-time ! so we check at run-time
IF (.NOT. PRESENT(type)) THEN IF (.NOT. PRESENT(type)) THEN