From 74fb1e6ea34d6e03a35ff6c158f455c39904bf5a Mon Sep 17 00:00:00 2001
From: bmundim <bmundim@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45>
Date: Sun, 2 May 2010 20:59:32 +0000
Subject: file/parameter string replacement from whisky to GRHydro

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@112 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
---
 src/GRHydro_RoeAverage.F90 | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 src/GRHydro_RoeAverage.F90

(limited to 'src/GRHydro_RoeAverage.F90')

diff --git a/src/GRHydro_RoeAverage.F90 b/src/GRHydro_RoeAverage.F90
new file mode 100644
index 0000000..b25adc2
--- /dev/null
+++ b/src/GRHydro_RoeAverage.F90
@@ -0,0 +1,39 @@
+ /*@@
+   @file      GRHydro_RoeAverage.F90
+   @date      Sat Jan 26 01:54:09 2002
+   @author    
+   @desc 
+   Calculates the Roe average of two states.
+   @enddesc 
+ @@*/
+
+#include "cctk.h"
+#include "cctk_Parameters.h"
+#include "cctk_Arguments.h"
+
+ /*@@
+   @routine roeaverage    
+   @date       Sat Jan 26 01:54:46 2002
+   @author     Ian Hawke
+   @desc 
+   Calculate the Roe average of two states. Currently just 
+   arithmetic averaging.
+   @enddesc 
+   @calls     
+   @calledby   
+   @history
+   
+   @endhistory 
+
+@@*/
+
+subroutine roeaverage(l, r, ave)
+  
+  implicit none
+  
+  CCTK_REAL, dimension(5) :: l, r, ave
+  
+  ave = 0.5d0 * (l + r)
+  
+end subroutine roeaverage
+  
-- 
cgit v1.2.3