From 0e1b013af77442311cd3708ec4bdbedb197a28e2 Mon Sep 17 00:00:00 2001 From: Thomas Grill Date: Fri, 14 Mar 2003 04:36:57 +0000 Subject: "" svn path=/trunk/; revision=468 --- externals/grill/vasp/source/ops_gate.cpp | 26 -------------------------- 1 file changed, 26 deletions(-) (limited to 'externals/grill/vasp/source/ops_gate.cpp') diff --git a/externals/grill/vasp/source/ops_gate.cpp b/externals/grill/vasp/source/ops_gate.cpp index 3dd15fbb..919ee07f 100644 --- a/externals/grill/vasp/source/ops_gate.cpp +++ b/externals/grill/vasp/source/ops_gate.cpp @@ -17,32 +17,6 @@ WARRANTIES, see the file, "license.txt," in this distribution. // -------------------------------------------------------------- -template V f_gate(T &rv,T ra,T rb) { rv = fabs(ra) >= rb?ra:0; } -template V f_igate(T &rv,T ra,T rb) { rv = fabs(ra) <= rb?ra:0; } - -template V f_rgate(T &rv,T &iv,T ra,T ia,T rb,T) -{ - register const T _abs = sqabs(ra,ia); - - if(_abs >= rb*rb) rv = ra,iv = ia; - else rv = iv = 0; -} - -template V f_rigate(T &rv,T &iv,T ra,T ia,T rb,T) -{ - register const T _abs = sqabs(ra,ia); - - if(_abs <= rb*rb) rv = ra,iv = ia; - else rv = iv = 0; -} - -BL VecOp::d_gate(OpParam &p) { D__rbin(f_gate,p); } -BL VecOp::d_igate(OpParam &p) { d__rbin(f_igate,p); } -BL VecOp::d_rgate(OpParam &p) { d__cbin(f_rgate,p); } -BL VecOp::d_rigate(OpParam &p) { d__cbin(f_rigate,p); } - - - Vasp *VaspOp::m_gate(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst) { Vasp *ret = NULL; -- cgit v1.2.1