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 $


FUNCTION heavyside(a)

  ! ...   P. Le Van  ....

  IMPLICIT NONE

  DOUBLE PRECISION heavyside, a

  IF (a<=0.) THEN
    heavyside = 0.
  ELSE
    heavyside = 1.
  END IF

  RETURN
END FUNCTION heavyside


1	guez	3
2	guez	81	! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/heavyside.F,v 1.1.1.1 2004/05/19
3			! 12:53:06 lmdzadmin Exp $
4	guez	3
5
6
7	guez	81	FUNCTION heavyside(a)
8	guez	3
9	guez	81	! ... P. Le Van ....
10	guez	3
11	guez	81	IMPLICIT NONE
12
13			DOUBLE PRECISION heavyside, a
14
15			IF (a<=0.) THEN
16			heavyside = 0.
17			ELSE
18			heavyside = 1.
19			END IF
20
21			RETURN
22			END FUNCTION heavyside
23
24