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

Follow requested changes to patch

Browse Source
This commit is contained in:
Tim Bernhard
2024-03-29 21:52:57 +01:00
parent c684fa0920
commit 7137290682
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/variable.cpp
View File

@ -1660,14 +1660,16 @@ double Variable::evaluate(char *str, Tree **tree, int ivar)
if (!compute->is_initialized()) if (!compute->is_initialized())
print_var_error(FLERR,"Variable formula compute cannot be invoked before " print_var_error(FLERR,"Variable formula compute cannot be invoked before "
"initialization by a run",ivar); "initialization by a run",ivar);
if (index1 > compute->size_array_cols)
print_var_error(FLERR,"Variable formula compute array is accessed out-of-range",ivar,0);
if (!(compute->invoked_flag & Compute::INVOKED_ARRAY)) { if (!(compute->invoked_flag & Compute::INVOKED_ARRAY)) {
compute->compute_array(); compute->compute_array();
compute->invoked_flag |= Compute::INVOKED_ARRAY; compute->invoked_flag |= Compute::INVOKED_ARRAY;
} }
// wait until after compute invocation to check size_array_rows
// b/c may be zero until after initial invocation
if (compute->size_array_rows == 0) if (compute->size_array_rows == 0)
print_var_error(FLERR,"Variable formula compute array is zero length",ivar); print_var_error(FLERR,"Variable formula compute array is zero length",ivar);
if (index1 > compute->size_array_cols)
print_var_error(FLERR,"Variable formula compute array is accessed out-of-range",ivar,0);
auto newtree = new Tree(); auto newtree = new Tree();
newtree->type = VECTORARRAY; newtree->type = VECTORARRAY;