Parent Directory | Revision Log
Initial import
1 | guez | 3 | ! |
2 | ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/initial0.F,v 1.1.1.1 2004/05/19 12:53:07 lmdzadmin Exp $ | ||
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 |
ViewVC Help | |
Powered by ViewVC 1.1.21 |