libf/dyn3d/heavyside.f

!
! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/heavyside.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $
!
c
c
       FUNCTION heavyside(a)

c      ...   P. Le Van  ....
c
       IMPLICIT NONE

       REAL*8 heavyside , a

       IF ( a.LE.0. )  THEN
         heavyside = 0.
       ELSE
         heavyside = 1.
       ENDIF

       RETURN
       END


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