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

Diff of /trunk/Sources/phylmd/zilch.f

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

trunk/libf/phylmd/zilch.f revision 69 by guez, Mon Feb 18 16:33:12 2013 UTC trunk/Sources/phylmd/zilch.f revision 134 by guez, Wed Apr 29 15:47:56 2015 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, intent(in):: m  
11        integer i    INTEGER, INTENT (IN) :: m
12        real x(m)    INTEGER i
13        do 1 i=1,m    REAL x(m)
14        x(i)= 0.0    
15      1 continue    DO i = 1, m
16        return      x(i) = 0.0
17        end    END DO
18      RETURN
19    END SUBROUTINE zilch
Legend:
Removed from v.69  
changed lines
  Added in v.134
  ViewVC Help
Powered by ViewVC 1.1.21