source: LMDZ.3.3/branches/rel-1-0-patch/libf/dyn3d/heavyside.F @ 976

Last change on this file since 976 was 253, checked in by (none), 23 years ago

This commit was manufactured by cvs2svn to create branch
'rel-1-0-patch'.

  • 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.