/[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 82 by guez, Wed Mar 5 14:57:53 2014 UTC
# Line 1  Line 1 
 !  
 ! $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  
   
        REAL*8 heavyside , a  
   
        IF ( a.LE.0. )  THEN  
          heavyside = 0.  
        ELSE  
          heavyside = 1.  
        ENDIF  
1    
2         RETURN  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/heavyside.F,v 1.1.1.1 2004/05/19
3         END  ! 12:53:06 lmdzadmin Exp $
4    
5    
6    
7    FUNCTION heavyside(a)
8    
9      ! ...   P. Le Van  ....
10    
11      IMPLICIT NONE
12    
13      DOUBLE PRECISION heavyside, a
14    
15      IF (a<=0.) THEN
16        heavyside = 0.
17      ELSE
18        heavyside = 1.
19      END IF
20    
21      RETURN
22    END FUNCTION heavyside
23    
24    
Legend:
Removed from v.3  
changed lines
  Added in v.82
  ViewVC Help
Powered by ViewVC 1.1.21