source:
LMDZ4/trunk/libf/phylmd/zilch.F
@
4019
Last change on this file since 4019 was 524, checked in by , 20 years ago | |
---|---|
|
|
File size: 215 bytes |
Rev | Line | |
---|---|---|
[524] | 1 | ! |
2 | ! $Header$ | |
3 | ! | |
4 | subroutine zilch(x,m) | |
5 | c | |
6 | c Zero the real array x dimensioned m. | |
7 | c | |
8 | implicit none | |
9 | c | |
10 | integer m,i | |
11 | real x(m) | |
12 | do 1 i=1,m | |
13 | x(i)= 0.0 | |
14 | 1 continue | |
15 | return | |
16 | end |
Note: See TracBrowser
for help on using the repository browser.