From 5697ebe98e16f1438d6feba09cb075b6a0f2a653 Mon Sep 17 00:00:00 2001
From: Thomas Grill <xovo@users.sourceforge.net>
Date: Fri, 21 Mar 2003 04:36:07 +0000
Subject:  ""

svn path=/trunk/; revision=488
---
 externals/grill/vasp/source/opfuns.h | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

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

diff --git a/externals/grill/vasp/source/opfuns.h b/externals/grill/vasp/source/opfuns.h
index 3a14eb95..51b1fd06 100644
--- a/externals/grill/vasp/source/opfuns.h
+++ b/externals/grill/vasp/source/opfuns.h
@@ -121,7 +121,7 @@ namespace VecOp {
     template<class T> class f_sqr {
     public: 
     	static I run_opt() { return 3; }
-        static V run(T &v,T a) { v = a*a; post("sq"); } 
+        static V run(T &v,T a) { v = a*a; } 
     	static I cun_opt() { return 1; }
         static V cun(T &rv,T &iv,T ra,T ia) { rv = ra*ra-ia*ia; iv = ra*ia*2; }
     };
@@ -133,6 +133,15 @@ namespace VecOp {
     };
 
 
+    template<class T> class f_sumq {
+    public: 
+    	static I rop_opt() { return 2; }
+        static V rop(T &,T ra,OpParam &p) 
+        { 
+	        p.norm.minmax += ra; 
+        } 
+    };
+
     // transcendent
 
     template<class T> class f_powi {
-- 
cgit v1.2.1