/[lmdze]/trunk/Sources/phylmd/zilch.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/zilch.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 69 by guez, Mon Feb 18 16:33:12 2013 UTC
# Line 7  c Zero the real array x dimensioned m. Line 7  c Zero the real array x dimensioned m.
7  c  c
8        implicit none        implicit none
9  c  c
10        integer m,i        integer, intent(in):: m
11          integer i
12        real x(m)        real x(m)
13        do 1 i=1,m        do 1 i=1,m
14        x(i)= 0.0          x(i)= 0.0  
Legend:
Removed from v.3  
changed lines
  Added in v.69
  ViewVC Help
Powered by ViewVC 1.1.21