Cleaning up and fixing the sign convention. It works!

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDBrillData/trunk@40 a678b1cf-93e1-4b43-a69d-d43939e66649

1 files changed, 12 insertions, 6 deletions

diff --git a/src/phif.F b/src/phif.F
index c24f2ca..3d9bf79 100644
--- a/src/phif.F
+++ b/src/phif.F
@@ -1,17 +1,23 @@
+/*@@
+  @file      phif.F
+  @date      October 1998
+  @author    Miguel Alcubierre
+  @desc
+             Function to find angle phi from coordinates {x,y}.
+  @enddesc
+  @version   $Header$
+@@*/
+
 #include "cctk.h"
 
       CCTK_REAL function phif(x,y)
 
-c     Author: Miguel Alcubierre, October 1998.
-c
-c     Function to find angle phi from coordinates {x,y}.
-
       implicit none
 
       CCTK_REAL x,y
-      real*8 zero,half,one,two,pi
+      CCTK_REAL zero,half,one,two,pi
 
-c     Define numbers.
+c     Numbers.
 
       zero = 0.0D0
       half = 0.5D0