source: LMDZ.3.3/tags/CCM1_0/libf/phylmd/zilch.F @ 300

Last change on this file since 300 was 300, checked in by (none), 23 years ago

This commit was manufactured by cvs2svn to create tag 'CCM1_0'.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 200 bytes
Line 
1      subroutine zilch(x,m)
2c
3c Zero the real array x dimensioned m.
4c
5      implicit none
6c
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.