source:
LMDZ5/trunk/libf/dyn3d_common/heavyside.F
Last change on this file was 1945, checked in by , 10 years ago | |
---|---|
|
|
File size: 266 bytes |
Rev | Line | |
---|---|---|
[524] | 1 | ! |
2 | ! $Header$ | |
3 | ! | |
4 | c | |
5 | c | |
6 | FUNCTION heavyside(a) | |
7 | ||
8 | c ... P. Le Van .... | |
9 | c | |
10 | IMPLICIT NONE | |
11 | ||
[1279] | 12 | REAL(KIND=8) heavyside , a |
[524] | 13 | |
14 | IF ( a.LE.0. ) THEN | |
15 | heavyside = 0. | |
16 | ELSE | |
17 | heavyside = 1. | |
18 | ENDIF | |
19 | ||
20 | RETURN | |
21 | END | |
22 | ||
23 |
Note: See TracBrowser
for help on using the repository browser.