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