source:
LMDZ5/branches/LF-private/tools/Max_diff_nc_with_lib/Jumble/Numerical/averge.f90
@
2690
Last change on this file since 2690 was 1765, checked in by , 11 years ago | |
---|---|
File size: 288 bytes |
Line | |
---|---|
1 | module AVERGE_m |
2 | |
3 | implicit none |
4 | |
5 | contains |
6 | |
7 | pure real FUNCTION AVERGE(X,Y) |
8 | |
9 | real, intent(in):: x, y |
10 | |
11 | !------------- |
12 | |
13 | AVERGE = .5 * SQRT(X) * sqrt(Y) + 0.25 * (X + Y) |
14 | ! (the square roots should be separated to avoid underflow) |
15 | |
16 | END FUNCTION AVERGE |
17 | |
18 | end module AVERGE_m |
Note: See TracBrowser
for help on using the repository browser.