Parent Directory | Revision Log
Initial import
1 | ! |
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 |