trunk/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)

  ! Zero the real array x dimensioned m.

  IMPLICIT NONE

  INTEGER, INTENT (IN) :: m
  INTEGER i
  REAL x(m)

  DO i = 1, m
    x(i) = 0.0
  END DO
  RETURN
END SUBROUTINE zilch
1	guez	81
2			! $Header: /home/cvsroot/LMDZ4/libf/phylmd/zilch.F,v 1.1.1.1 2004/05/19
3			! 12:53:09 lmdzadmin Exp $
4
5			SUBROUTINE zilch(x, m)
6
7			! Zero the real array x dimensioned m.
8
9			IMPLICIT NONE
10
11			INTEGER, INTENT (IN) :: m
12			INTEGER i
13			REAL x(m)
14
15			DO i = 1, m
16			x(i) = 0.0
17			END DO
18			RETURN
19			END SUBROUTINE zilch