source:
LMDZ4/trunk/libf/dyn3dpar/initial0.F
@
2925
Last change on this file since 2925 was 774, checked in by , 17 years ago | |
---|---|
|
|
File size: 173 bytes |
Line | |
---|---|
1 | ! |
2 | ! $Header$ |
3 | ! |
4 | SUBROUTINE initial0(n,x) |
5 | IMPLICIT NONE |
6 | INTEGER n,i |
7 | REAL x(n) |
8 | DO 10 i=1,n |
9 | x(i)=0. |
10 | 10 CONTINUE |
11 | RETURN |
12 | END |
Note: See TracBrowser
for help on using the repository browser.