diff options
| author | Thomas Grill <xovo@users.sourceforge.net> | 2003-03-14 04:36:57 +0000 |
|---|---|---|
| committer | Thomas Grill <xovo@users.sourceforge.net> | 2003-03-14 04:36:57 +0000 |
| commit | 0e1b013af77442311cd3708ec4bdbedb197a28e2 (patch) | |
| tree | b78bdeb16ac023ce8cbff7f8319762eb29827729 /externals/grill/vasp/source/ops_assign.cpp | |
| parent | aee82b636f867865ba00cb25d2a021f9f4e2aab4 (diff) | |
""
svn path=/trunk/; revision=468
Diffstat (limited to 'externals/grill/vasp/source/ops_assign.cpp')
| -rw-r--r-- | externals/grill/vasp/source/ops_assign.cpp | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/externals/grill/vasp/source/ops_assign.cpp b/externals/grill/vasp/source/ops_assign.cpp index 05d40375..1d08a373 100644 --- a/externals/grill/vasp/source/ops_assign.cpp +++ b/externals/grill/vasp/source/ops_assign.cpp @@ -13,20 +13,6 @@ WARRANTIES, see the file, "license.txt," in this distribution. #include "opdefs.h" -template<class T> inline V f_rcopy(T &v,T a) { v = a; } -template<class T> inline V f_ccopy(T &rv,T &iv,T ra,T ia) { rv = ra,iv = ia; } - -template<class T> inline V f_rset(T &v,T,T b) { v = b; } -template<class T> inline V f_cset(T &rv,T &iv,T,T,T rb,T ib) { rv = rb,iv = ib; } - - -BL VecOp::d_copy(OpParam &p) { D__run(f_rcopy<S>,p); } -BL VecOp::d_ccopy(OpParam &p) { D__cun(f_ccopy<S>,p); } - -BL VecOp::d_set(OpParam &p) { D__rbin(f_rset<S>,p); } -BL VecOp::d_cset(OpParam &p) { D__cbin(f_cset<S>,p); } - - VASP_BINARY("vasp.set vasp.=",set,false,VASP_ARG_R(0),"Assigns a value, envelope or vasp") VASP_BINARY("vasp.cset vasp.c=",cset,false,VASP_ARG_R(0),"Assigns a complex value, real envelope or vasp") |