source: LMDZ.3.3/trunk/libf/dyn3d/heavyside.F @ 503

Last change on this file since 503 was 207, checked in by lmdz, 24 years ago

petit detail
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.