source: LMDZ.3.3/branches/rel-LF/libf/dyn3d/heavyside.F @ 4122

Last change on this file since 4122 was 232, checked in by lmdzadmin, 23 years ago

Merge par rapport a la branche principale
LF
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 256 bytes
Line 
1c
2c $Header$
3c
4       FUNCTION heavyside(a)
5
6c      ...   P. Le Van  ....
7c
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.