1 |
! |
module heavyside_m |
|
! $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 |
|
2 |
|
|
3 |
RETURN |
IMPLICIT NONE |
|
END |
|
4 |
|
|
5 |
|
contains |
6 |
|
|
7 |
|
real FUNCTION heavyside(a) |
8 |
|
|
9 |
|
! From LMDZ4/libf/dyn3d/heavyside.F,v 1.1.1.1 2004/05/19 12:53:06 |
10 |
|
|
11 |
|
! ... P. Le Van .... |
12 |
|
|
13 |
|
real, intent(in):: a |
14 |
|
|
15 |
|
!------------------------------------------------- |
16 |
|
|
17 |
|
IF (a<=0.) THEN |
18 |
|
heavyside = 0. |
19 |
|
ELSE |
20 |
|
heavyside = 1. |
21 |
|
END IF |
22 |
|
|
23 |
|
END FUNCTION heavyside |
24 |
|
|
25 |
|
end module heavyside_m |