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

Diff of /trunk/dyn3d/heavyside.f

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

revision 130 by guez, Wed Mar 5 14:57:53 2014 UTC revision 131 by guez, Fri Feb 27 16:44:07 2015 UTC
# Line 1  Line 1 
1    module heavyside_m
2    
3  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/heavyside.F,v 1.1.1.1 2004/05/19    IMPLICIT NONE
 ! 12:53:06 lmdzadmin Exp $  
   
4    
5    contains
6    
7  FUNCTION heavyside(a)    real FUNCTION heavyside(a)
8    
9    ! ...   P. Le Van  ....      ! From LMDZ4/libf/dyn3d/heavyside.F,v 1.1.1.1 2004/05/19 12:53:06
10    
11    IMPLICIT NONE      ! ...   P. Le Van  ....
12    
13    DOUBLE PRECISION heavyside, a      real, intent(in):: a
14    
15    IF (a<=0.) THEN      !-------------------------------------------------
     heavyside = 0.  
   ELSE  
     heavyside = 1.  
   END IF  
16    
17    RETURN      IF (a<=0.) THEN
18  END FUNCTION heavyside         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.130  
changed lines
  Added in v.131
  ViewVC Help
Powered by ViewVC 1.1.21