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