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
2	! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/heavyside.F,v 1.1.1.1 2004/05/19
3	! 12:53:06 lmdzadmin Exp $
4
5
6
7	FUNCTION heavyside(a)
8
9	! ... P. Le Van ....
10
11	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