Parent Directory | Revision Log
Moved everything out of libf.
1 | ! |
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 |