source:
LMDZ.3.3/trunk/libf/phylmd/zilch.F
@
1798
Last change on this file since 1798 was 254, checked in by , 23 years ago | |
---|---|
|
|
File size: 200 bytes |
Line | |
---|---|
1 | subroutine zilch(x,m) |
2 | c |
3 | c Zero the real array x dimensioned m. |
4 | c |
5 | implicit none |
6 | c |
7 | integer m,i |
8 | real x(m) |
9 | do 1 i=1,m |
10 | x(i)= 0.0 |
11 | 1 continue |
12 | return |
13 | end |
Note: See TracBrowser
for help on using the repository browser.