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
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