source: LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/zilch.F @ 3157

Last change on this file since 3157 was 844, checked in by (none), 17 years ago

This commit was manufactured by cvs2svn to create branch
'LMDZ4_V3_patches'.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 215 bytes
RevLine 
[524]1!
2! $Header$
3!
4      subroutine zilch(x,m)
5c
6c Zero the real array x dimensioned m.
7c
8      implicit none
9c
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.