Parent Directory | Revision Log
Initial import
1 | ! |
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 | 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 |
ViewVC Help | |
Powered by ViewVC 1.1.21 |