Parent Directory | Revision Log
Moved everything out of libf.
1 | guez | 3 | ! |
2 | ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/zilch.F,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $ | ||
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 | guez | 69 | integer, intent(in):: m |
11 | integer i | ||
12 | guez | 3 | real x(m) |
13 | do 1 i=1,m | ||
14 | x(i)= 0.0 | ||
15 | 1 continue | ||
16 | return | ||
17 | end |
ViewVC Help | |
Powered by ViewVC 1.1.21 |