trunk/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	guez	3	!
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