blob: b25adc2e6f7f61986414345addee9b319a62761b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
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
|