diff options
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") |