Sources/phylmd/zilch.f

!
! $Header: /home/cvsroot/LMDZ4/libf/phylmd/zilch.F,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $
!
      subroutine zilch(x,m)
c
c Zero the real array x dimensioned m.
c
      implicit none
c
      integer, intent(in):: m
      integer i
      real x(m)
      do 1 i=1,m
      x(i)= 0.0  
    1 continue
      return
      end
1	guez	3	!
2			! $Header: /home/cvsroot/LMDZ4/libf/phylmd/zilch.F,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $
3			!
4			subroutine zilch(x,m)
5			c
6			c Zero the real array x dimensioned m.
7			c
8			implicit none
9			c
10	guez	69	integer, intent(in):: m
11			integer i
12	guez	3	real x(m)
13			do 1 i=1,m
14			x(i)= 0.0
15			1 continue
16			return
17			end