/[lmdze]/trunk/phylmd/zilch.f
ViewVC logotype

Diff of /trunk/phylmd/zilch.f

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

trunk/libf/phylmd/zilch.f revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC trunk/phylmd/zilch.f revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC
# Line 1  Line 1 
1  !  
2  ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/zilch.F,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $  ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/zilch.F,v 1.1.1.1 2004/05/19
3  !  ! 12:53:09 lmdzadmin Exp $
4        subroutine zilch(x,m)  
5  c  SUBROUTINE zilch(x, m)
6  c Zero the real array x dimensioned m.  
7  c    ! Zero the real array x dimensioned m.
8        implicit none  
9  c    IMPLICIT NONE
10        integer m,i  
11        real x(m)    INTEGER, INTENT (IN) :: m
12        do 1 i=1,m    INTEGER i
13        x(i)= 0.0      REAL x(m)
14      1 continue  
15        return    DO i = 1, m
16        end      x(i) = 0.0
17      END DO
18      RETURN
19    END SUBROUTINE zilch
Legend:
Removed from v.3  
changed lines
  Added in v.82
  ViewVC Help
Powered by ViewVC 1.1.21