Parent Directory | Revision Log
Initial import
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 | 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 |
ViewVC Help | |
Powered by ViewVC 1.1.21 |