source: LMDZ4/trunk/libf/dyn3d/heavyside.F @ 802

Last change on this file since 802 was 524, checked in by lmdzadmin, 21 years ago

Initial revision
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 260 bytes
Line 
1!
2! $Header$
3!
4c
5c
6       FUNCTION heavyside(a)
7
8c      ...   P. Le Van  ....
9c
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.