trunk/dyn3d/initial0.f


! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/initial0.F,v 1.1.1.1 2004/05/19
! 12:53:07 lmdzadmin Exp $

SUBROUTINE initial0(n, x)
  IMPLICIT NONE
  INTEGER n, i
  REAL x(n)

  DO i = 1, n
    x(i) = 0.
  END DO
  RETURN
END SUBROUTINE initial0
1	guez	81
2			! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/initial0.F,v 1.1.1.1 2004/05/19
3			! 12:53:07 lmdzadmin Exp $
4
5			SUBROUTINE initial0(n, x)
6			IMPLICIT NONE
7			INTEGER n, i
8			REAL x(n)
9
10			DO i = 1, n
11			x(i) = 0.
12			END DO
13			RETURN
14			END SUBROUTINE initial0