/[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 71 by guez, Mon Jul 8 18:12:18 2013 UTC trunk/Sources/dyn3d/heavyside.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC
# Line 1  Line 1 
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  
   
        DOUBLE PRECISION 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
Legend:
Removed from v.71  
changed lines
  Added in v.134
  ViewVC Help
Powered by ViewVC 1.1.21