source: LMDZ.3.3/tags/IPSL-CM4_0x1/libf/phylmd/zilch.F @ 342

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

This commit was manufactured by cvs2svn to create tag 'IPSL-CM4_0x1'.
  • 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.