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

convert Fortran version of lammps_gather_bonds() test to be similar to C version

Browse Source
This commit is contained in:
Axel Kohlmeyer
2023-02-02 19:10:51 -05:00
parent 5cf1bbff7c
commit 5797ba5bcf
2 changed files with 86 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
unittest/fortran/wrap_gather_scatter.cpp
View File

@ -29,7 +29,7 @@ int f_lammps_gather_atoms_subset_mask(int);
double f_lammps_gather_atoms_subset_position(int, int);
void f_lammps_scatter_atoms_masks();
void f_lammps_scatter_atoms_positions();
void f_lammps_setup_gather_bonds();
void f_lammps_setup_gather_topology();
int f_lammps_test_gather_bonds_small();
int f_lammps_test_gather_bonds_big();
double f_lammps_gather_pe_atom(int);
@ -221,11 +221,11 @@ TEST_F(LAMMPS_gather_scatter, scatter_atoms_subset_mask)
TEST_F(LAMMPS_gather_scatter, gather_bonds)
{
if (!lammps_has_style(lmp, "atom", "full")) GTEST_SKIP();
f_lammps_setup_gather_bonds();
f_lammps_setup_gather_topology();
#ifdef LAMMPS_BIGBIG
EXPECT_EQ(f_lammps_test_gather_bonds_big(), 1);
EXPECT_EQ(f_lammps_test_gather_bonds_big(), 10);
#else
EXPECT_EQ(f_lammps_test_gather_bonds_small(), 1);
EXPECT_EQ(f_lammps_test_gather_bonds_small(), 10);
#endif
};