source:
LMDZ4/branches/V3_test/libf/dyn3d/heavyside.F
@
4040
Last change on this file since 4040 was 524, checked in by , 20 years ago | |
---|---|
|
|
File size: 260 bytes |
Line | |
---|---|
1 | ! |
2 | ! $Header$ |
3 | ! |
4 | c |
5 | c |
6 | FUNCTION heavyside(a) |
7 | |
8 | c ... P. Le Van .... |
9 | c |
10 | IMPLICIT NONE |
11 | |
12 | REAL*8 heavyside , a |
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.