source: LMDZ.3.3/trunk/libf/phylmd/zilch.F @ 3748

Last change on this file since 3748 was 254, checked in by lmdz, 23 years ago

Inclusion de la version vectorisee de KE FH
LF

  • 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.