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

fix uninitialized memory access in fortran unit test. must have consumer to access compute

Browse Source
This commit is contained in:
Axel Kohlmeyer
2022-12-19 20:29:52 -05:00
parent e9b4d2c55d
commit a44f5c8594
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
unittest/fortran/test_fortran_gather_scatter.f90
View File

@ -34,6 +34,7 @@ SUBROUTINE f_lammps_setup_gather_scatter() BIND(C)
CALL lmp%commands_list(pair_input) CALL lmp%commands_list(pair_input)
CALL lmp%command('mass 1 1.0') CALL lmp%command('mass 1 1.0')
CALL lmp%command("compute pe all pe/atom") CALL lmp%command("compute pe all pe/atom")
CALL lmp%command("fix dummy all ave/atom 1 1 1 c_pe")
END SUBROUTINE f_lammps_setup_gather_scatter END SUBROUTINE f_lammps_setup_gather_scatter
FUNCTION f_lammps_gather_atoms_mask(i) BIND(C) FUNCTION f_lammps_gather_atoms_mask(i) BIND(C)
@ -313,7 +314,7 @@ SUBROUTINE f_lammps_gather_pe_atom_subset(ids, pe) BIND(C)
natoms = NINT(lmp%get_natoms(), c_int) natoms = NINT(lmp%get_natoms(), c_int)
CALL lmp%gather_subset('c_pe', 1, ids, pe_atom) CALL lmp%gather_subset('c_pe', 1, ids, pe_atom)
pe(1:natoms) = pe_atom pe(1:2) = pe_atom(1:2)
END SUBROUTINE f_lammps_gather_pe_atom_subset END SUBROUTINE f_lammps_gather_pe_atom_subset
SUBROUTINE f_lammps_scatter_compute() BIND(C) SUBROUTINE f_lammps_scatter_compute() BIND(C)