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 |