/[lmdze]/trunk/Sources/dyn3d/heavyside.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/heavyside.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/libf/dyn3d/heavyside.f revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC trunk/dyn3d/heavyside.f revision 76 by guez, Fri Nov 15 18:45:49 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.
Legend:
Removed from v.3  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.21