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