From 0e1b013af77442311cd3708ec4bdbedb197a28e2 Mon Sep 17 00:00:00 2001
From: Thomas Grill <xovo@users.sourceforge.net>
Date: Fri, 14 Mar 2003 04:36:57 +0000
Subject:  ""

svn path=/trunk/; revision=468
---
 externals/grill/vasp/source/ops_cplx.h | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

(limited to 'externals/grill/vasp/source/ops_cplx.h')

diff --git a/externals/grill/vasp/source/ops_cplx.h b/externals/grill/vasp/source/ops_cplx.h
index b3aaa4c6..c77de675 100644
--- a/externals/grill/vasp/source/ops_cplx.h
+++ b/externals/grill/vasp/source/ops_cplx.h
@@ -11,20 +11,19 @@ WARRANTIES, see the file, "license.txt," in this distribution.
 #ifndef __VASP_OPS_CPLX_H
 #define __VASP_OPS_CPLX_H
 
-#include "opbase.h"
+#include "opfuns.h"
 
 // Complex functions
 
 namespace VecOp {
-	BL d_polar(OpParam &p); 
-	BL d_rect(OpParam &p); 
+    inline BL d_polar(OpParam &p) { return d__cun<S,f_polar<S> >(p); }
+    inline BL d_rect(OpParam &p) { return d__cun<S,f_rect<S> >(p); }
 
-	BL d_radd(OpParam &p); 
+    inline BL d_radd(OpParam &p) { return d__cbin<S,f_radd<S> >(p); }
 
-	BL d_cnorm(OpParam &p); 
+    inline BL d_cnorm(OpParam &p) { return d__cun<S,f_norm<S> >(p); }
 
-//	BL d_cswap(OpParam &p); 
-	BL d_cconj(OpParam &p); 
+    inline BL d_cconj(OpParam &p) { return D__cun<S,f_conj<S> >(p); }
 }
 
 namespace VaspOp {
-- 
cgit v1.2.1