source: LMDZ.3.3/branches/rel-LF/libf/phylmd/zilch.F @ 4198

Last change on this file since 4198 was 270, checked in by lmdzadmin, 23 years ago

Initial version in branch
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 200 bytes
RevLine 
[254]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.