source:
LMDZ4/trunk/libf/dyn3dpar/initial0.F
@
706
Last change on this file since 706 was 630, checked in by , 20 years ago | |
---|---|
|
|
File size: 173 bytes |
Rev | Line | |
---|---|---|
[630] | 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.