diff options
author | Thomas Grill <xovo@users.sourceforge.net> | 2002-12-05 05:36:32 +0000 |
---|---|---|
committer | Thomas Grill <xovo@users.sourceforge.net> | 2002-12-05 05:36:32 +0000 |
commit | 60ee6bb60b11bbfbccf56f335c9c6213e6daa79d (patch) | |
tree | 99b0c72c60aeba5d1a0489aae9edd16f371d965c /externals/grill/vasp/source/env.cpp | |
parent | bbd9d289d152f6ef085dec680f0b1611c29f0e32 (diff) |
""
svn path=/trunk/; revision=278
Diffstat (limited to 'externals/grill/vasp/source/env.cpp')
-rw-r--r-- | externals/grill/vasp/source/env.cpp | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/externals/grill/vasp/source/env.cpp b/externals/grill/vasp/source/env.cpp index f846a227..010f888e 100644 --- a/externals/grill/vasp/source/env.cpp +++ b/externals/grill/vasp/source/env.cpp @@ -8,6 +8,7 @@ WARRANTIES, see the file, "license.txt," in this distribution. */ +#include "main.h" #include "env.h" #include "classes.h" #include "util.h" @@ -58,12 +59,12 @@ BL Env::ChkArgs(I argc,const t_atom *argv) if(v && v == vasp_base::sym_env) ix++; // if it is "env" ignore it while(argc > ix) { - // check for position + // check for value if(flext::CanbeFloat(argv[ix])) ix++; else return false; - // check for value + // check for position if(argc > ix) if(flext::CanbeFloat(argv[ix])) ix++; else @@ -73,7 +74,15 @@ BL Env::ChkArgs(I argc,const t_atom *argv) return true; } - +V Env::MakeList(flext::AtomList &ret) const +{ + ret(cnt*2+1); + flext::SetSymbol(ret[0],vasp_base::sym_env); + for(I i = 0; i < cnt; ++i) { + flext::SetFloat(ret[i*2+1],val[i]); + flext::SetFloat(ret[i*2+2],pos[i]); + } +} V Env::Clear() { |