Parent Directory | Revision Log
Changed all ".f90" suffixes to ".f".
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 |
ViewVC Help | |
Powered by ViewVC 1.1.21 |