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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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.
Legend:
Removed from v.70  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.21