Parent Directory | Revision Log
Moved everything out of libf.
1 | guez | 3 | ! |
2 | ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/heavyside.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $ | ||
3 | ! | ||
4 | c | ||
5 | c | ||
6 | FUNCTION heavyside(a) | ||
7 | |||
8 | c ... P. Le Van .... | ||
9 | c | ||
10 | IMPLICIT NONE | ||
11 | |||
12 | guez | 71 | DOUBLE PRECISION heavyside , a |
13 | guez | 3 | |
14 | IF ( a.LE.0. ) THEN | ||
15 | heavyside = 0. | ||
16 | ELSE | ||
17 | heavyside = 1. | ||
18 | ENDIF | ||
19 | |||
20 | RETURN | ||
21 | END | ||
22 | |||
23 |
ViewVC Help | |
Powered by ViewVC 1.1.21 |