source: LMDZ5/tags/proto-testing-20131015/libf/dyn3dmem/initial0.F @ 2015

Last change on this file since 2015 was 1669, checked in by Laurent Fairhead, 12 years ago

Version testing basée sur la r1668

http://lmdz.lmd.jussieu.fr/utilisateurs/distribution-du-modele/versions-intermediaires

Testing release based on r1668
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.
1010    CONTINUE
11      RETURN
12      END
Note: See TracBrowser for help on using the repository browser.