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

git-svn-id: svn://svn.icms.temple.edu/lammps-ro/trunk@1174 f3b2605a-c512-4ea7-a41b-209d697bcdaa

Browse Source
This commit is contained in:
sjplimp
2007-11-16 15:53:21 +00:00
parent fb4cc15d79
commit f96dda1e93
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/variable.cpp
View File

@ -106,6 +106,7 @@ void Variable::set(int narg, char **arg)
// num = N, index = 1st value, data = list of NULLS since never used // num = N, index = 1st value, data = list of NULLS since never used
} else if (strcmp(arg[1],"loop") == 0) { } else if (strcmp(arg[1],"loop") == 0) {
if (narg != 3) error->all("Illegal variable command");
style[nvar] = LOOP; style[nvar] = LOOP;
num[nvar] = atoi(arg[2]); num[nvar] = atoi(arg[2]);
index[nvar] = 0; index[nvar] = 0;
@ -118,6 +119,7 @@ void Variable::set(int narg, char **arg)
// data = 2 values, 1st is string to eval, 2nd is filled on retrieval // data = 2 values, 1st is string to eval, 2nd is filled on retrieval
} else if (strcmp(arg[1],"equal") == 0) { } else if (strcmp(arg[1],"equal") == 0) {
if (narg != 3) error->all("Illegal variable command");
if (find(arg[0]) >= 0) { if (find(arg[0]) >= 0) {
if (style[find(arg[0])] != EQUAL) if (style[find(arg[0])] != EQUAL)
error->all("Cannot redefine variable as a different style"); error->all("Cannot redefine variable as a different style");
@ -157,6 +159,7 @@ void Variable::set(int narg, char **arg)
data[nvar] = new char*[num[nvar]]; data[nvar] = new char*[num[nvar]];
copy(num[nvar],&arg[2],data[nvar]); copy(num[nvar],&arg[2],data[nvar]);
} else { } else {
if (narg != 3) error->all("Illegal variable command");
style[nvar] = ULOOP; style[nvar] = ULOOP;
num[nvar] = atoi(arg[2]); num[nvar] = atoi(arg[2]);
data[nvar] = new char*[num[nvar]]; data[nvar] = new char*[num[nvar]];
@ -194,6 +197,7 @@ void Variable::set(int narg, char **arg)
// data = 1 value, string to eval // data = 1 value, string to eval
} else if (strcmp(arg[1],"atom") == 0) { } else if (strcmp(arg[1],"atom") == 0) {
if (narg != 3) error->all("Illegal variable command");
style[nvar] = ATOM; style[nvar] = ATOM;
num[nvar] = 1; num[nvar] = 1;
index[nvar] = 0; index[nvar] = 0;