Parent Directory | Revision Log | Patch
revision 70 by guez, Wed Feb 27 13:16:39 2008 UTC | revision 71 by guez, Mon Jul 8 18:12:18 2013 UTC | |
---|---|---|
# | Line 9 c ... P. Le Van .... | Line 9 c ... P. Le Van .... |
9 | c | c |
10 | IMPLICIT NONE | IMPLICIT NONE |
11 | ||
12 | REAL*8 heavyside , a | DOUBLE PRECISION heavyside , a |
13 | ||
14 | IF ( a.LE.0. ) THEN | IF ( a.LE.0. ) THEN |
15 | heavyside = 0. | heavyside = 0. |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |