/[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

trunk/phylmd/zilch.f revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/phylmd/zilch.f90 revision 81 by guez, Wed Mar 5 14:38:41 2014 UTC
# Line 1  Line 1 
1  !  
2  ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/zilch.F,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $  ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/zilch.F,v 1.1.1.1 2004/05/19
3  !  ! 12:53:09 lmdzadmin Exp $
4        subroutine zilch(x,m)  
5  c  SUBROUTINE zilch(x, m)
6  c Zero the real array x dimensioned m.  
7  c    ! Zero the real array x dimensioned m.
8        implicit none  
9  c    IMPLICIT NONE
10        integer, intent(in):: m  
11        integer i    INTEGER, INTENT (IN) :: m
12        real x(m)    INTEGER i
13        do 1 i=1,m    REAL x(m)
14        x(i)= 0.0    
15      1 continue    DO i = 1, m
16        return      x(i) = 0.0
17        end    END DO
18      RETURN
19    END SUBROUTINE zilch
Legend:
Removed from v.76  
changed lines
  Added in v.81
  ViewVC Help
Powered by ViewVC 1.1.21