source:
LMDZ.3.3/trunk/libf/dyn3d/heavyside.F
@
3730
Last change on this file since 3730 was 207, checked in by , 24 years ago | |
---|---|
|
|
File size: 256 bytes |
Line | |
---|---|
1 | c |
2 | c $Header$ |
3 | c |
4 | FUNCTION heavyside(a) |
5 | |
6 | c ... P. Le Van .... |
7 | c |
8 | IMPLICIT NONE |
9 | |
10 | REAL*8 heavyside , a |
11 | |
12 | IF ( a.LE.0. ) THEN |
13 | heavyside = 0. |
14 | ELSE |
15 | heavyside = 1. |
16 | ENDIF |
17 | |
18 | RETURN |
19 | END |
20 | |
21 |
Note: See TracBrowser
for help on using the repository browser.