From 9815096db22c73cacdbb65512d1b61d633db7fa8 Mon Sep 17 00:00:00 2001
From: Thomas Grill <xovo@users.sourceforge.net>
Date: Mon, 2 Dec 2002 19:21:08 +0000
Subject:  "version 0.1.1"

svn path=/trunk/; revision=267
---
 externals/grill/vasp/source/util.cpp | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 externals/grill/vasp/source/util.cpp

(limited to 'externals/grill/vasp/source/util.cpp')

diff --git a/externals/grill/vasp/source/util.cpp b/externals/grill/vasp/source/util.cpp
new file mode 100644
index 00000000..c487e3d1
--- /dev/null
+++ b/externals/grill/vasp/source/util.cpp
@@ -0,0 +1,12 @@
+#include "util.h"
+#include <math.h>
+
+R arg(R re,R im)
+{
+	if(re) 
+		return fmod(atan(im/re)+(re < 0?2*PI:PI),2*PI)-PI;
+	else
+		if(im || re) return im > 0?PI/2:-PI/2;
+		else return 0;
+}
+
-- 
cgit v1.2.1