Parent Directory | Revision Log | Patch
trunk/dyn3d/initial0.f revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC | trunk/dyn3d/initial0.f90 revision 81 by guez, Wed Mar 5 14:38:41 2014 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | ! | |
2 | ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/initial0.F,v 1.1.1.1 2004/05/19 12:53:07 lmdzadmin Exp $ | ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/initial0.F,v 1.1.1.1 2004/05/19 |
3 | ! | ! 12:53:07 lmdzadmin Exp $ |
4 | SUBROUTINE initial0(n,x) | |
5 | IMPLICIT NONE | SUBROUTINE initial0(n, x) |
6 | INTEGER n,i | IMPLICIT NONE |
7 | REAL x(n) | INTEGER n, i |
8 | DO 10 i=1,n | REAL x(n) |
9 | x(i)=0. | |
10 | 10 CONTINUE | DO i = 1, n |
11 | RETURN | x(i) = 0. |
12 | END | END DO |
13 | RETURN | |
14 | END SUBROUTINE initial0 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |